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l ordenador nos permite básicamente tratar con 
rapidez un gran volumen de información. El 
modo más económico de “salvar” los datos es el 
de escribirlos en disco, tanto si se trata de un dis- 
co flexible (disquete o floppy disk) como de un 
disco rígido (hard disk). Habida cuenta de su es- 
tructura, el disco nos proporciona la posibilidad 
de acceder a los datos de forma directa (o alea- 
toria) y, por tanto, :ambién secuencial. 

Elp proceso secuencial significa leer o escribir correlativamen- 
te, es decir, al comienzo el primer registro, luego el segundo, el 
tercero, etc. hasta que se acaben los datos. Lamentablemente, en 
el proceso secuencial si queremos tener acceso a un registro in- 
termedio tenemos que leer todos los registros que le preceden. 
El proceso directo o aleatorio significa leer o escribir directamen- 
te cualquier registro, sin necesidad de procesar los que le prece- 
den. Para que un fichero pueda procesarse de forma aleatoria es 
necesario, sin embargo, que todos sus registros tengan la misma 
longitud. 

El acceso aleatorio, o directo, sería ciertamente el más versá- 
til si el método de búsqueda fuera el mismo utilizado para cargar 
los datos. Veremos las técnicas que han ido surgiendo para po- 
der tener un acceso rápido a los datos de formas diferentes a las 
utilizadas durante su grabación. 

El operador dispone de zonas para localizar las informacio- 
nes; son los campos (“field”). Cada campo puede contener sola- 
mente cifras, letras del alfabeto o bien cifras y letras del alfabeto, 
signos de puntuación y caracteres especiales. Por supuesto, nor- 
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malmente no es suficiente un solo campo y por ello utilizaremos 
varios. 

A la unión de todos los campos se le ha dado el nombre de 
registro. Pero no nos basta un solo registro, sino que utilizaremos 
muchos. Su conjunto será referido, cuando comencemos a leer o 
escribir en disco nuestras informaciones, con el extraño nombre 
de “file” (fichero, o también archivo). Estos ficheros pueden ser tan- 
to de entrada como de salida, es decir, pueden ser leídos o escri- 
tos por el ordenador, pero éste puede procesar un único registro 
a la vez, De ahora en adelante hablaremos de los ficheros de las 
facturas, de los ficheros de los gastos, de los ficheros de las exis- 
tencias, etc. 

Lo que sigue es precisamente la filosofía de estos campos, re- 
gistros y ficheros, sobre todo de cómo están organizados, subdi- 
vididos (técnicamente se dice “estructurados”) y de cómo se pue- 
den manipular sus componentes: eligiéndolos, reuniéndolos, cam- 
biando sus connotaciones, mezclándolos er:tre sí, etc. Aprendere- 
mos a hacerlo, inicialmente, en los lenguajes BASIC y Pascal. No 
se trata realmente de un juego: la valiosa información que pode- 
mos así manejar, controlada.con eficiencia y oportunidad por los 
ordenadores electrónicos, representa uno de los patrimonios más 
importantes de los individuos, de las empresas y de la sociedad 
entera. Es, pues, conveniente que sepamos lo más posible de esta 
materia. 

El término “Banco de datos” está muy generalizado y por eso 
ha sido empleado como título de este libro; sin embargo, la temá- 
tica que trataremos sobrepasa lo que, hablando en sentido estric- 
to, es un banco de datos, es decir, la agrupación ordenada de in- 
formaciones, para llegar a lo que se puede denominar “base de 
datos”, donde ya se permite controlar y manipular dichas informa- 
ciones. La confusión existente en esta terminología (vulgarmente 
incluso se identifican ambos términos) nos obliga a realizar esta 
matización antes de comenzar a tratar en profundidad el tema. 


DENTRO DE LOS FICHEROS 


Generalidades 


omo acabamos de comentar, cada fichero está 
constituido por registros (en mayor o menor 
número, según los casos) compuestos todos 
ellos por los mismos campos (bloques míni- 
mos de información en una base o banco de 
datos). 

Sin embargo, de un fichero a otro el núme- 
ro, tipo y características de los campos que for- 
man cada uno de los registros puede variar 
enormemente. Veamos algunos ejemplos. 

Imaginemos un fichero que llamaremos FACTURA y que pre- 
tende recoger toda la información sobre las facturas emitidas por 
un pequeño comercio. En él cada registro tendrá comq campos 
de información la fecha de la factura, la mercancía vendida, el com- 
prador, el importe, el IVA, el total y la forma de pago. 

" Otro fichero, sin embargo, en el que queramos llevar nuestra 
cartera de proveedores podrá tener como campos los siguientes: 
empresa, tipo de material que nos suministra, persona de contac- 
to, teléfono y dirección. 

Vemos, pues, que, aunque la filosofía sea la misma, la forma 
de desarrollarla será distinta en cada caso. 

Normalmente los registros no son escritos o leídos del disco 
de forma individual, uno a uno, sino que se reagrupan en bloques, 
lo cual permite optimizar el proceso de entrada/salida de los da- 
tos. El bloque se define así, en general, como el conjunto de ca- 
racteres de información que es manejado (leído o escrito) por 
cualquier dispositivo de entrada/salida. : 

El bloque puede contener uno o más registros, dependiendo 
de las dimensiones del registro y de las dimensiones del bloque. 
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Es de gran utilidad la escritura y la consiguiente lectura en blo- 
ques tanto para ¿imitar el número de los accesos necesarios a los 
dispositivos de entrada y de salida como para optimizar el espa- 
cio en disco o en cinta. El control del comienzo y final de bloques 
se realiza, de forma automática, por el sistema operativo. Por con- 
siguiente, nosotros los usuarios no tenemos 


cómo se 


jue preocuparnos de 


ejectua la lectura/escritura y nos bastará saber que; 

e durante la grabación, cada vez que ordenamos escribir un 
registro, es el sistema operativd"quien estima el momento 
oportuno para grabar el bloque de datos correspondiente; 

e Qurante la lectura, cada vez que ordenamos leer un regis- 
tro, es el sistema operativo quien se encarga de decidir si 
puede leerlo por completo a partir del bloque que está con- 
tenido en memoria o debe leerlo en parte de este bloque 
y el resto en otro bloque del disco o cinta; 

e algunos sistemas operativos, para no desperdiciar espacio, 
utilizan todos los bytes de cada bloque y, por ello, un re- 
gistro puede estar “a caballo” entre dos bloques; 

e la longitud del bloque varía según e: sistema operativo uti- 
lizado. Suele ser de 128 bytes o de uno de sus múltiplos 
(256, 512). 


En nuestros programas haremos referencia al fichero por me- 
dio de un nombre que se denomina “nombre interno” del fichero. 
El soporte externo más empleado y cómodo es el disco (bien sea 
disco flexible, bien disco rígido), por lo que, en lo sucesivo, en lu- 
gar de utilizar la expresión soporte externo, emplearemos la ex- 


presión “disco”. En cac «cenar diferentes fi- 
cheros. De aquí la nec 
individu al 

Cada disco está subdividido en dos partes: una zona está re- 
servada al índice, denominado también DIRECTORIO, y la otra está 
reservada a los ficheros. El nombre externo del fichero sirve para 
distinguirlo de los demás ficheros existentes en el disco y es este 
nombre el que está escrito en el directorio. Los ficheros existen- 
tes en disco pueden ser leídos por otros ordenadores, a condi- 
ción de que utilicen el mismo sistema operativo y el mismo modo 


de grabación. 


len al 


Fases de las operaciones con ficheros 


Todas las operaciones con los ficheros, sin importar qué sis- 
tema operativo se utilice, se desarrollan en tres fases bien distin- 
tas: fase de apertura, fase intermedia y fase de cierre. 
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En la fase de apertura se indica al sistema operativo cuál =s 
l nombre externo del fichero y qué soporte exterior se utiliza; di- 

cho de otro modo, se acopla el nombre interno del fichero con su 
nombre externo. A partir de este momento el programa, utilizan- 
do el nombre interno del fichero, estará en condiciones de hacer 
comprender al sistema operativo en dónde escribir o leer los da- 
los. : 

La fase de cierre es muy importante para un fichero en escr- 
ura. ¿Recuerda que se tiende a reagrupar varios registros en cada 
bloque? Según se van juntando y completando bloques se van 
grabando; al final del programa, es decir, al final de nuestras in- 
formaciones, es muy probable que el último bloque no se haya 
completado, con lo cual es necesario indicar al sistema operativo 
que puede considerar terminada la operación y que el último blo- 
que debe grabarse tal como está, aunque esté incompleto. Para 
los ficheros en la fase de lectura no siempre es necesario avisar 
que se ha acabado de emplear el fichero. No obstante, es buena 
norma comunicárselo también al sistema operativo; algunos siste- 
mas operativos actualizan el directorio solamente en la fase de 
cierre. 

La E ls 
escribir los registros 

Hemos subdivido este primer volumen dedicado a las bases 
de datos en dos partes: en la primera parte, por medio de analo- 
gías y dibujos, explicaremos algunos tipos de acceso a los fiche- 
ros. En la segunda presentaremos ejemplos completos de progra- 
mas, tanto en BASIC MS DOS como en PASCAL UCSD. 

En nuestra exposición trataremos los tipos de acceso siguien- 
tes: 


| 


140] 


es aquella en la que se procede a leer € 


t 


tipo "hash", 
aleatorio, 

de árbol binario, 
base de datos 


000. 0.0.0. 
EA 


Para no hacer demasiado árida la exposición, no hablaremos 
de algunas técnicas sofisticadas de programación, habida cuenta 
de que nos interesa, sobre todo, hacer comprender la filosofía de 
los diversos tipos de acceso. 


e 
to 
« 


ALGUNOS METODOS DE ACCESO A LOS DATOS 


El acceso secuencial 


uestros ejemplos prevén la utilización de so- 
lamente seis registros, cuyos “jefes de fami- 
lia” respectivos se denominan: rojos, verdes, 
azules, grises, naranjas y violetas. En nuestras 
ilustraciones, un tren simulará el fichero y 
cada vagón corresponderá a un registro. La 
locomotora es ¡a unidad que se encarga de 
maniobrar los vagones. Los vagones contie- 
ESE nen la información, o sea, los campos. Tiene 
poca importancia saber cuáles son las informaciones contenidas 
a excepción de las relativas al primer campo, que es el “padre”. 
En nuestro ejemplo nos interesa que los vagones (los, registros) 
puedan ser tratados en orden alfabético según el padre, aunque 
las informaciones, como veremos, se nos darán desordenadas. 

Se habla de acceso secuencial cuando para acceder al con- 
tenido de un registro cualquiera (para leerlo o escribirlo) debe- 
mos recorrer antes, necesariamente, los que le preceden, cuyo 
contenido en ese momento no nos importa y al que, además, tam- 
poco tendríamos acceso en ese instante. 

En la figura 1 hemos dibujado una locomotora, con la cámara 
de presión a punto, dispuesta para enganchar vagones y alras- 
trarlos hacia el túnel que se ve a la derecha. Las vías permiten 
transportar nuestras informaciones y la locomotora nos permite re- 
coger los vagones y arrastrarlos hacia el túnel. En la figura se 
muestra con la referencia a) la situación después de la apertura 
del fichero. 

Cuando se quiere utilizar un fichero, la primera operación a 
realizar es la de abrirlo por primera vez (crearlo), es decir, la que 
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1050) Figura 1.—Creación de un fichero secuencial. 
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corresponde a solicitar una locomotora que se encargará de tras- 
ladar nuestros vagones. Lo que realmente hacemos es indicar al 
islema operativo qué unidad (“drive”) q 1 16 
nombre queremos dar a nuestro fichero y cuál va a ser su estruc- 
tura. También en los transportes ferroviarios los trenes son referi- 
dos mediante una sigla. 
Veamos unos ejemplos de apertura de ficheros. 


En BASIC MS DOS: 


500 OPEN 1 AS OUTPUT, "FACTURAS" 
510 FIELD 1,32 AS C$10 AS 1$20 AS D$6 AS F$ 


En PASCAL UCSD: 
VAR TRENl: FICHERO DE REGISTRO 
CLIENTE : STRING[32] ; 
IMPORTE : INTEGER[10]; 
DIRECCION : STRING[20] ; 
FECHA : STRING[6]; 
END: 
BEGIN 


REWRITE (TREN1, 'HS:FACTURAS); 


En ambos casos hemos abierto el fichero FACTURAS espe- 
cificando el tamaño y nombre de los cuatro campos de cada 
registro. 

En la figura 1 se muestra con la referencia b) lo que sucede 
con nuestro vagón “verde” después de que lo hayamos cargado 
con todas las informaciones: simplemente se enganchat'a la loco- 
motora. Esta última se desplaza hacia la derecha el espacio sufi- 
ciente para poder enganchar otros vagones. 

Veamos ahora cómo podemos escribir en un registro: 


En BASIC MS DOS: 


950 LSET C$ =CL$ 

960 LSETI$ =MKIK(IMPORTE) 
970 LSET D$ =LOCALIDAD$ 
980 LSETF$ =FECHAS$ 

990 PUT 1 


En PASCAL UCSD: 
PUT (TREN); 
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Continuaremos así cargando informaciones en los otros va- 
gones y enganchándoles al tren hasta que hayamos completado 
nuestro fichero. En la figura 1 c) se muestra la situación después 
de enganchar el vagón "rojo", que es el segundo registro. Hay que 
destacar el hecho de que cada vagón se ha numerado de forma 
progresiva a partir del cero. Una vez termínadas las operaciones 
de escritura (carga) y después de haber enganchado el último va- 
gón, se envía una orden particular con la que se avisa al sistema 
operativo de que el fichero está completo. El sistema operativo 
añade entonces al final del fichero unarinformación particular de- 
nominada EOF (End Of File - Final de Fichero). En nuestra analo- 
gía hemos añadido un pequeño vagón que lleva la indicación de 
EOF (Fig. 1 d)). 

Ejemplo de cierre de ficheros: 


En BASIC MS DOS 
2010 CLOSE 1 


En PASCAL UCSD: 
CLOSE  (TREN1LOCK); 


En la figura 2 se muestra el posible contenido de un registro, 
Todos los vagones (registros) deben tener la información dispues- 
ta siempre del mismo modo, que, en nuestro caso, sería: primero, 
el nombre del cliente, y a continuación, la dirección, la ciudad, el 
teléfono, el prefijo y el tipo. 

Cuando queramos reutilizar nuestro fichero tenemos que 
abrirlo de un modo muy similar al utilizado para su creación. En 
nuestra simulación, tenemos que establecer una vía libre en don- 
de se pueda colocar el tren. Como nombre tenemos que darle el 
mismo utilizado en la creación. 

La figura 3 muestra la situación del fichero inmediatamente 
después de su apertura. Logramos conocer el contenido del pri- 
mer registro solamente, porque el resto está todavía en las “tinie- 
blas” del túnel. Si queremos tener las informaciones relativas al re- 
gistro “dorado”, por ejemplo, tendremos que hacer avanzar nues- 
Ira locomotora hasta que aparezca el vagón correspondiente, pero 
ya no podremos averiguar de inmediato el contenido de los va- 
gones que pasaron delante. 

El acceso secuencial tiene muchas limitaciones, Una de ellas 
es que para llegar a un determinado registro tenemos que reco- 
rrer primero todos los registros anteriores y no nos será posible, 
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cliente 


número 


dirección 
del 
vagón 


ciudad teléfono 


prefijo 
Te 2.—Posible contenido de un vagón (registro). 


además, ver los registros que pasaren con anterioridad; tampoco 
se podrá añadir ningún registro si no es al final del fichero (antes 
del EOF); no hace posible la eliminación de un registro. Para sub- 
sanar este inconveniente se acostumbra a introducir en cada re- 
gistro un campo particular que se pone a un valor adecuado si el 
registro fue objeto de anulación. Como se puede constatar, el con- 
trol de un fichero secuencial es muy sencillo, pero no precisamen- 
te flexible, y ello impone bastantes limitaciones. Es precisamente 
buscando solventar esta escasa flexibilidad y la lentitud,que lleva 
pareja por lo que se han estudiado otras clases de accesos. 


70) Figura 3.—Lectura de un fichero secuencial: situación después de la 
apertura. 


15 


El acceso directo (o aleatorio) 


irecto (o aleatorio) a: 


: 


ere 


n a través de su número o de una 


18! Tec [O GuUe nos 11 


5 (bie 


y sin tener que recorrer previamente nido JITO, 
Para explicar el acceso aleatorio seguiremos utilizando la lo- 
comotora y los vagones, pero en lugar de arrancar nuestro tren 
de la oscuridad del túnel con todos los vagones unidos, coloca- 
remos cada vagón en una vía muerta diferente. Cada vía se nu- 
merará, de forma progresiva, desde cero en adelante. Como en el 
caso del fi :ncial, se deberá prefijar de antemano una 


Y ne 


aso del fichero sec 
locomotora, es decir, se lrá qu aro. 

En la figura 4 a) se muestra la situación antes de la colocación 
del primer vagón (el registro “verde”). La locomotora tiene delan- 
te de sí diferentes vías muertas. Su “sentido común” le indica que 


1e abrir el fict 


My Pow. 4.—Creación de un fichero de acceso directo (aleatorio). 
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ol primer vagón debe colocarse en la vía 0, el segundo vagón en 
, 1 vía | y así sucesivamente hasta el séptimo vagón, en la vía 6. 

En la práctica, las vías se ocuparán una tras otra sin dejar ningún 
ospacio vacío. 

En la figura 4 b) se ilustra la situación después de escribir el 
registro “verde” y unos instantes antes de escribir el registro ' “rojo”. 
Fl vagón “verde” está ya colocado en la vía O y el vagón “rojo”, 
arrastrado por la locomotora, está preparado para llegar a la vía |. 

En la figura 5 se muestra la situación final. La locomotora está 
Inactiva y las vías O a la 5 contienen cada una un vagón. La última 
vía, la que tiene como referencia el número 6, contiene un indica- 
dor con el rótulo EOF (End Of File - Final de NO ona en Aa 
práctica, señala que no se puede ir más allá, an cie 


( ¡ero Ss efectú ae la mañera vista pa DE 


ales. Asimismo no es posible eliminar directamente registros; se 
acostumbra a utilizar la técnica de insertar un campo que contie- 


Figura 4.—Creación de un fichero de acceso directo (aleatorio). 
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E Figura 8.—Situación final, cerrado ya el fichero. 


ne un valor particular si el registro se ha anulado. Habrá intuido 
ya que para tener acceso a un vagón determinado basta saber en 
qué vía se encuentra, aunque no siempre sea fácil conocer el nú- 
mero de los registros. 

En la figura 6 se muestra la locomotora que ha tomado el va- 
gón que se encontraba en la vía 2. No obstante, en principio no 
disponemos de ningún sistema para saber que en la vía 2 se en- 
cuentra el vagón “añil”. ¿Qué hace el sistema operativo para de- 
terminar la posición de cualquier registro dentro del fichero? ¿Qué 
hará para determinar en qué bloque está contenido y a partir de 
qué posición del mismo bloque comienza? 

Supongamos que nuestro registro tiene una longitud máxima 
de 64 caracteres y que los bloques en el disco tienen una longi- 
tud de 256 bytes (de O a 255). Se tendrá, pues, que: 


e el primer registro estará escrito en el primer bloque, a par- 
tir de la posición O; 
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violeta 
] 5 


e] 


Y Figura 6.—Acceso al registro número 2 de un fichero directo. 


e el segundo registro estará escrito en el primer bloque, a 
partir de la posición 64; 

e el tercer registro estará escrito en el primer bloque, a par- 
tir de la posición 128; t 

e el cuarto registro estará escrito en el primer bloque, a par- 
tir de la posición 192; 

e el quinto registro estará escrito en el segundo bloque, a par- 
tir de la posición 0; 

e el sexto registro estará escrito en el segundo bloque, a pat- 
tir de la posición 64. 


Y así sucesivamente. 
Si queremos tener acceso a un registro concreto (por ejem- 
plo, el número 100), haremos la siguiente operación: 
(n2 regístro-1)*64 
Por ejemplo: 
(100-11*64=6336 
19 


Es decir, el registro número 100 (partiendo del 1, no del 0) par- 
te del byte número 6336. Para determinar en qué bloque se en- 
cuentra un byte (el 6336) se procederá así: 


Parte entera de (n* byte/256)+1. 
INT(6336/256)+1=25 


El registro 100 se encuentra en el bloque 25 (partiendo de 1, 
no de 0), pero, ¿en qué byte? Se tendrá: 


Resto de (6336/256)=192 


Por consiguiente, el registro 100 se encuentra a partir del 
byte 192 del bloque 25. 

El acceso directo es muy rápido porque vamos, a ciencia cier 
ta, al registro ('n”) buscado. La limitación de este acceso radica 
en el hecho de que no se sabe qué registro hay en cada lugar 
(vía). Dicho de otro modo, tenemos que desarrollar otro sistema 
para saber qué información se encuentra en cada vía. 

En este punto, tenemos que introducir un nuevo concepto que 
es el de campo “clave”. Si queremos buscar un registro basándo- 
nos en el campo “apellido”, se dice que “apellido” es un campo 
clave; si deseamos buscar un registro sobre la base del campo 
“mercancía”, se dice que “mercancía” es una clave. 

Se dice que un campo es un "campo clave" cuando su conte- 
nido es usado para encontrar los registros. El campo clave nos per- 
mite la búsqueda de un registro mediante su contenido. En nues- 
tros ejemplos la búsqueda se realizaría basándose en el nombre 
del cliente. Para la búsqueda mediante campos clave veremos 
dos métodos: el acceso mediante INDICE y el acceso de tipo 
HASH 


Acceso mediante índice (ficheros directos) 


Los diversos registros se almacenan como hemos visto para 
los ficheros de acceso aleatorio. La locomotora deposita el primer 
vagón en la vía O, el segundo vagón en la vía 1 y así sucesiva- 
mente, hasta el sexto vagón en la vía 5. Mientras tanto se crea una 


tabla en donde están almacenadas las claves (fijadas antes) de 
cada registro individual y en qué posición del fichero estár guar- 
dudas Hemos representado esta tabla como una serie de cajas 


adosadas. Cada caja contiene una clave y la posición relativa del 
registro, es decir, el número de vía. El número de cada caja, sin 
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embargo, no es significativo y sirve sólo como referencia en la ex- 
plicación del proceso que se lleva a cabo. 

La figura 7 muestra la situación después de la apertura del fi- 
ehero, La locomotora está preparada para depositar el vagón de 
"verde". Las vías y las cajas están vacías. 

Nosotros tomaremos como clave de índice el nombre del va- 
gjón (verde, rojo..). La figura 8 muestra la situación después de la 
escritura del registro “verde”. El vagón “verde” ocupa la vía 0. La 
caja O contiene esta información: si busca la clave “verde” sabrá 
que debe retirar el vagón que se encuentra en la vía 0. Los de- 
más vagones se depositarán en la forma habitual, es decir, el se- 
gundo en la vía 1, el tercero en la 2, etc. Por el contrario, será di- 
lerente el control de las cajas. En ellas, las informaciones deben 
introducirse en orden alfabético ascendente. Cuando escribamos 
el registro “rojo” se colocará en la vía !, pero tenemos que intro- 
ducir la clave (“llave”) de “rojo” en la caja O, aunque esté ocupada. 


EN Figura 7.—Fichero con acceso mediante Índice: situación antes de 
la escritura del registro correspondiente a “verde”. 
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Figura 8.—Fichero con acceso mediante índice: situación después 
de la actualización de la clave del registro correspondiente a “verde”. 


Esto es así porque las claves deben estar en orden alfabético y 
“rojo” debe colocarse antes de “verde”. Por consiguiente, tendre- 
mos que desplazar el contenido de la caja 0 a la caja 1 antes de 
introducir en la primera las informaciones de “rojo”. 

En la figura 9 observamos que en la vía O se encuentra el va- 
gón "verde" y en la vía 1 está el vagón “rojo”. En las cajas vemos 
que las claves están en orden alfabético ascendente. Ahora sabe- 
mos que el vagón “rojo” se encuentra en la vía 1 mientras que el 
vargón “verde” está en la vía 0. Debemos convenir en que es 'me- 
jor desplazar las informaciones en las cajas que no intercambiar 
entre sí dos vagones. ¡Piense tan sólo en las maniobras que ten- 
dría que realizar la locomotora para efectuar el intercambio! La 
creación prosigue con el depósito de vagones en las siguientes 
vías libres, mientras que en las cajas se procede a insertar las cla- 
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Gi Figura 9.—Fichero con acceso mediante Índice: situación después 
MÉS de la actualización de la clave del registro correspondiente a "rojo". 


, 


ves (los nombres) y el número de la vía de modo que las claves 
estén en orden alfabético ascendente. 

La figura 10 muestra la situación final y el contenido de las ca- 
jas: cada una contiene una clave y el número de la vía correspon- 
diente. j 

Antes de cerrar definitivamente un fichero con acceso me- 
diante clave o índice, el contenido de las cajas debe guardarse 
(se deposita de forma ordenada en uno o varios vagones). La fi- 
gura 11 provorciona una representación esquemática de la com- 
posición efectiva final del fichero con acceso mediante índice. En 
condiciones normales, los vagones de las claves preceden a los 
demás vagones. En b) está representado el contenido del vagón 
de las claves. 
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Figura 10.—Fichero con acceso mediante índice: situación después 
de la grabación de toda la información. 


Cómo se accede al fichero 


Si queremos tener acceso al registro “rejo” no tendremos más 
que examinar las cajas de nuestros armarios hasta que encontre- 
mos la clave “rojo”; en la misma caja se nos dice que el vagón se 
encuentra en la vía 1. Para loca la clave utilizamos una e 


de búsqueda que 


pan q EA 


La y 111Z 


1 


3 jued: a siguiente. La búsqueda concluye en tres 
casos: porque hayamos encontrado la clave, porque hayamos con- 
sultado todos los compartimentos sin resultado satisfactorio o por- 
que la clave de búsqueda tenga un valor menor que el de las cla- 


ves siguientes (es como si no existiera ninguna clave). 
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( 1, Se pl 
y ' % 
gue la busqueda en 


violeta 
5 


E Figura 11.—Fichero con acceso mediante índice: a) El fichero lleva 


[ES en la cabecera todas las claves. Siguen los registros en el orden de 
grabación. b) Contenido del pequeño vagón de las claves. 


seda e 


Existen métodos más rápidos para la búsqueda en una 
lenada. Uno de los más conocidos es la técnica de la bús 
. -a2.0 binaria, que consiste en se ( A at pa] a 


3 UE. IAVaTar: 
101 11, 90 LUVIC! 


l 


) Dilldalla 2 


] 
a 


1 de la tabla 


La conclusión es que podemos limitar nue 
mente una de las mitades de la tabla; por lo tanto, tomamos esta 
parte y la dividimos también en dos, volviendo a iniciar las com- 
paraciones en la forma anteriormente explicada. Llegamos a un 
punto en el que se presentan dos casos: encontramos la clave o 
bien no podemos subdividir más la tabla. 

Si se quiere eliminar un registro bastará anular la entrada co- 
rrespondiente en la tabla de las claves. Con frecuencia se acos- 
tumbra a señalar el registro que se ha anulado, con el fin de per- 
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mitir la reconstrucción del fichero en el caso de su destrucción 
parcial o para recuperar el espacio ocupado por el registro anu- 
lado. La figura 12 muestra la situación después de la anulación del 
registro “gualdo”, pudiéndose observar que en los compartimen- 
tos se ha eliminado la clave “gualdo” y las claves se han despla- 
zado un lugar a la izquierda. 

Veamos ahora un ejemplo de búsqueda dicotómica en una ta- 
bla constituida por varios elementos. Realizaremos búsquedas tan- 
to de elementos que existen como de elementos inexistentes y ex- 
plicaremos además un interesante recurso que permite seguir 
paso a paso la lógica del programa y que enseña a encontrar los 
“gazapos”. Presentaremos una tabla de 21 elementos, en donde 
cada elemento corresponde a una letra del alfabeto, aunque, na- 
turalmente, puede sustituirse por cualquier tipo de cadena, a con- 


TURLEDEDEDIDMAA 
ARA 
3 1 5 


Figura 12.—Acceso a un fichero secuencial de índice: situación des- 
pués de la supresión del registro “gualdo”. 
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divión de que queden en orden alfabético ascendente. A conti- 
miación damos la tabla correspondiente, en donde hemos supues- 
lo también una numeración progresiva que, aunque no estando 
prosente en la tabla, nos hará más cómodas las explicaciones: 


ZECTIQTNIMUAY > 


Hemos prometido utilizar determinados recursos para expli- 
car mejor todo lo relativo a la búsqueda dicotómica. En cumpli- 
miento de dicha promesa veamos primero la figura 13, que pre- 
senta, mediante un diagrama de flujo, la subrutina de búsqueda y, 
en segundo lugar, veremos la tabla de estado. 

La “tabla de estado" es de gran utilidad cuando se tiene que 
seguir la lógica de una parte de programa observando el conte- 
nido de determinadas variables. La tabla, puesto que de ello se 
trata, está constituida por diversos elementos (columnas). Tendre- 
mos tantos elementos como variables. Haremos ver el contenido 
de los elementos en diferentes momentos y en cada instante se 
pondrá de manifiesto en una línea. Numeraremos las líneas de for- 
ma progresiva. En las primeras ocasiones resultará difícil leer una 
tabla de estado, pero estamos en condiciones de asegurar que, 
una vez tomada cierta confianza, será muy útil para las operacio- 
nes de depuración. 

¿Qué variables destacar? Es evidente que lo primero que que- * 
remos ver es el contenido de un elemento de la tabla; en nuestro 
caso, una letra del alfabeto. Por consiguiente, es conveniente sa- 
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COMIENZO 


Ultimo=20 


Primero : : NO 
Ultimo ENCONTRADO 
Medio = 

Primero + Ultimo 
D 


Primero = 
Medio + 1 


ENCONTRADO 


Figura 13.—Búsqueda dicotómica en la gestión de un fichero de 
Índices. 


ber la variable que “apunta” al elemento de la tabla; a dicha 
variable la hemos denominado MEDIO, mientras que llamaremos 
ULTIMO al último elemento y PRIMERO al primer elemento de la 
* tabla. Las variables PRIMERO y ULTIMO serán modificadas por la 
rutina de búsqueda (observe la figura 13), al igual que la variable 
MEDIO, En las tablas siguientes observará que repetiremos las va- 
riables PRIMERO y ULTIMO porque tenemos que conocer el valor 


28 


que se acaba de introducir en la subrutina y porque algunas ins- 
Irmaciones modificarán su contenido. Las dos columnas repetidas 
ye han encabezado de modo diferente y, desde el punto de vista 
Íísico, se han colocado de manera que respeten la situación “ini- 
cial” y la situación “final”. 

Supongamos que se trata de buscar la letra del alfabeto "D". 


biremos la cabecera de la tabla de estado como sigue: 
Paso Inicial Medio Valor Final 
Pr. Ult. (medio) Pr. Ult, 


"Inicial Pr.” representa el valor inicial de la variable PRIMERO. 
"Inicial Ult” significa el valor inicial de la variable ULTIMO. 
"Final Pr.” contiene el valor final de la variable PRIMERO. 
"Final Ult." supone el valor final de la variable ULTIMO. 

Bajo el encabezamiento “paso” escribimos 1, en la columna 
"Primero inicial” escribimos también 1 y bajo "Ultimo inicial” es- 
cribimos 20. Estos dos últimos valores los deducimos del flujo del 
diagrama de la figura 13. El valor medio viene dado por 1+21 y 
el total dividido por 2. El resultado lo escribimos en la columna 
“Medio”. El elemento 11 de la tabla es M y lo transcribimos a la 
columna “Va.or (medio)”. Queremos buscar la “D” y esta letra tie- 
ne un valor menor que M. Por consiguiente, el valor de ULTIMO 
deberá modificarse. El nuevo valor de ULTIMO es igual al valor 
de MEDIO disminuido en 1; es decir, 10. Dicho valor lo escribimos 
en la columna de “último final”. A la columna "primero final” lleva- 
mos el contenido de “primero inicial”, porque dicha variable no 
se modificó. La tabla de estado debe presentarse así: 


| 
Volvemos al punto "A” y, puesto que el valor de la variable 
PRIMERO no es mayor que el de la variable ULTIMO, completa- 
mos ahora la segunda línea de la tabla de estado. En la columna 
“paso” escribimos 2 y llevamos a las dos columnas “inicial” los va- 
lores de las variables PRIMERO y ULTIMO, obtenidos de las dos 
últimas columnas de la fila anterior. Por lo tanto, debajo de la va- 
riable PRIMERO escribiremos 1 y debajo de la variable ULTIMO 


escribiremos 10. A continuación calculamos el valor de la varia- 
ble MEDIO ((1+11)/2) y el valor obtenido, que es 5, se escribe 
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en la columna de la variable MEDIO (observe que no se tiene en 
cuenta el resto). Podemos escribir ahora en la columna “Valor (me- 
dio)" el valor “E”. Puesto que el valor "D” es menor que “E” modi- 
ficaremos solamente la variable “último” y así, bajo el encabeza- 
miento “último final” escribimos 4 (MEDIO-1) y bajo “primero fi- 
nal” escribimos el valor anterior, es decir, 1. 

La tabla de estado debe presentarse como sigue: 


Volvamos al punto “A”. Como el valor de la variable PRIME- 
RO no es mayor que el de la variable ULTIMO, completamos la ter- 
cera línea. Bajo e! encabezamiento “paso” escribimos 3, y bajo los 
dos encabezamientos de valores iniciales llevamos los valores fi- 
nales de la línea anterior, es decir, 1 y 4. Calculamos el valor de 
la variable MEDIO: (1+4)/2=2. En la columna “medio” escribimos 
2 y en la columna Valor (medio) escribimos “B”. Puesto que el va- 
lor de la letra “D" es mayor que el de la “B" modificaremos la va- 
riable PRIMERO. En la columna “primero final” escribimos 3 (ME- 
DIO+1) y en la columna “último final” llevamos el valor anterior, o 
sea 4, 

Ahora, la tabla de estado se presentará así: 


| 
Medio 


Volvemos de nuevo al punto “A” y ya que el valor de la 
variable PRIMERO es menor que el de la variable ULTIMO, es- 
cribiremos la línea 4. En la columna “pasc” escribimos 4, en la 
columna “primero inicial” escribimos 3 y en la columna "último 
inicial” escribimos 4. Calculamos el valor de la variable MEDIO: 
(3+4) /2=3. Escribimos 3 en la columna “medio” y C en la columna 
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"Valor (medio)”. Puesto que la "D" es mayor que la "C”, modifica- 
remos solamente la variable “primero”, Escribimos 4 en la colum- 
na de la variable "primero final” (MEDIO+1) y 4 en la columna “úl- 
limo final” (el valor anterior). 

La situación de la tabla de estado quedará como sigue: 


Vemos que el valor de la variable PRIMERO es igual al de la 
variable ULTIMO y, por ello, en la columna “paso” escribimos 5; a 
la columna “primero inicial” llevamos el valor 4 y a la columna "úl- 
limo inicial” llevamos también el valor 4. Calculamos el valor de 
la variable MEDIO ((4+4)/2) y escribimos el resultado en la co- 
lumna “medio”. En la columna "Valor (medio)” escribimos "D”. Con 
ello hemos encontrado el elemento a buscar, que se encuentra en 
el cuarto lugar de la tabla. 

Presentemos la situación final de la tabla de estado: 


| 
1] 
] 
1 
3 
4 


Tratemos ahora de buscar la letra "]J”, es decir, un elemento 
que no existe en la tabla. Presentamos la tabla de estado tal como 
queda después del último paso, ya que damos por conocidos los 
razonamientos hechos en el caso de la búsqueda de la letra “D”. 
Digamos solamente que en el paso 6 al preguntarnos si el valor 
de la variable PRIMERO es mayor que el de la variable ULTIMO - 
y puesto que la respuesta es afirmativa, ello significa que el ele- 
mento no existe en la tabla. 
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Paso Medio 


| 


Acceso por el método Hash (al azar) 


cceso ha 


Este método de a 
ra ac 


«ser el más rápido para 
más, la tabla de c ocupa menos esj ) 

La figura 14 muestra en su apartado a) la situación después 
de la apertura del fichero. Existen las habituales 7 vías a nuestra 
disposición. La locomotora está preparada para aparcar el vagón 
“verde”. Observamos que no se han utilizado todavía los compar- 
timientos, sino que en todos ellos hemos introducido el valor -1. 
Para nosotros el valor -1 tiene el significado de compartimiento 
vacío o, lo que es lo mismo, de clave no existente. 

En el acceso Hash se procede a aparcar los vagones (los re- 
gistros) en el modo habitual: el primer vagón en la vía O, el se- 
gundo en la vía 1 y así sucesivamente. Se observará que el vagón 
contiene un campo adicional, normalmente a “-1”. 

La originalidad del método Hash ar) con 
siste en transformar la clave, que suele ser de tipo alfabético, en 
ún valor numérico. Las fórmulas para la transformación son nume- 
rosas, pero utilizaremos una bastante sencilla. Aun cuando las fór- 
mulas o algoritmos sean complicadas puede suceder que a partir 
de claves diferentes se puede obtener el mismo número Hash. 
Este hecho se denomina “colisión” y se debe tener en cuenta. 

El algoritmo utilizado es el siguiente: cada carácter que cons- 
tituye la clave se transforma en su valor ordinal, o sea, en aquel 
valor binario mediante el cual está representado en la memoria 
del ordenador. Los valores binarios de los caracteres que ocupan 
posiciones distintas de la clave se sumarán en el totalizador»"X”, 
mientras que los otros valores se sumarán en “Y”. A continuación, 
los resultados de "X” e "Y” se dividen por 256 y los restos de las 
divisiones correspondientes se llevan a las variables R1 y R2, res- 
pectivamente. Se multiplica R2 por 256 y se le suma Rl; el resul- 
tado se lleva a “Z”. Finalmente, dividimos “Z' por 7 y almacenamos 
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es 


Errrr de hs re A mi 1 Ly 4 
(comprobación al az 


m) 


YEN INTIN ENSEÑA 
AENA ES 
IN Figura 14.—Creación de un fichero con método de acceso Hash. a) 
' Situación antes de procesar los datos correspondientes a “verde”, 


el resto en “H”. "H” será nuestro número Hash. Como divisor de “Z* 
se utiliza un número primo, teóricamente el más próximo al nú- 
mero de registros que constituyen el fichero. En la práctica suele 
ser un número ¿nferior, con el fin de no desperdiciar memoria. 
En la siguiente tabla se resume la transformación de nuestras 
6 claves en su número Hash. 


A AA A 


Verde 
Rojo 


Añil 

Dorado 
Gualdo 
Violeta 
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Se observan muchas “colisiones”. Utilizando como divisor 17 
no habríamos obtenido ninguna colisión, pero la tabla estaría cons- 
tituida por 17 elementos, aunque los registros sean sola- 
mente 6. 

En la parte b) de la figura 14 se muestra la situación después 
de la grabación de registro “verde”, El número Hash de “verde” 
es 3; por ello abrimos el compartimiento número 3 y observamos 
que contiene el valor -1, lo que significa que está vacío. Por con- 
siguiente, introducimos el valor O (número de la vía libre). En el 
vagón “verde” añadimos el valor -1 (veremos luego para qué sir- 
ve) y luego lo aparcamos en la vía 0. 

La siguiente vía libre es la número 1. En el apartado a) de la 
figura 15 se muestra la situación después de la grabación del 
registro “rojo”. El número Hash de “rojo” es 2; abrimos el com- 


Figura 14 —Creación de un fichero con el método de acceso Hash. 
b) Situación después de la escritura de “verde”. 
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150 Figura 15.—Pasos de la creación de un fichero secuencial con téc- 
E nica de acceso Hash. a) La situación después de la grabación de 
“rojo”. 


, 


partimiento número 2 y observamos que contiene el valor -1, es 
decir, está vacío. Ahora, introducimos en dicho compartimiento el 
valor 1, que es el número de la vía libre En el vagón “rojo” aña- 
dimos el valor -1 y aparcamos el vagón en la vía 1. 

La siguiente vía libre es la número 2. Es fácil comprender cuál 
será la situación después de la grabación del registro “añil”. el nú- 
mero Hash de añil es 6, así que abrimos el compartimiento núme- 
ro 6 y observamos que está vacío (contiene -1); introducimos el 
valor 2, que es el número de la vía en donde aparcamos el vagón 
“añil”. En este último vagón añadimos el valor -1 y lo depositamos 
en la vía número 2. La siguiente vía libre será la número 3. Reco- 
mendamos para los pasos considerados y los que veremos más 
adelante que se tenga a la vista la tabla de generación de los di- 


versos números Hash. 
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En el apartado b) de la figura 15 se muestra la situación des- 
pués de la grabación del registro “dorado”. =1 número Hash de “do- 
rado” es 2; al abrir el compartimiento 2 observamos que está ocu- 
pado ya: nos encontramos ante la primera “colisión”. Para subsa- 
nar este inconveniente, escribimos en el vagón “dorado” el valor 
*]”, es decir, el valor contenido hasta ahora en el compartimiento 
y luego aparcamos el vagón en la vía 3. La siguiente vía libre es 
la número 4. El compartimiento número 2 ha quedado, por así de- 
cirlo, con la puerta abierta de par en par, el valor "1” se ha extraí- 
do y ahora hemos introducido el valor.3”, que corresponde al nú- 


“Dorado” apunta a rojo 
“Rojo” apunta a nada , 


Figura 15.—Pasos de la creación de un fichero secuencial con téc- 

nica de acceso Has. b) Se tiene con “dorado” la primera colisión; el 
compartimiento £ contendrá el número de la vía “dorado”, cuyo registro 
"apunta" al interior (rojo); 
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mero de la vía en dónde ha estado aparcado el vagón “dorado”. 
También en la grabación del registro “dorado” se tiene otra coli- 
nión, Añadimos al vagón “gualdo” el valor 2, extraído del compar- 
limiento 6 y luego áparcamos el vagón en la vía 4. La siguiente 
vla libre será la número 5. También el compartimiento número 6 
ha quedado abierto y hemos puesto en su interior el valor 4, o 
ua, el valor de la vía en donde se ha depositado el valor "gualdo”. 

En el apartado c) de la figura 15 se muestra la situación des- 
pués de la grabación del registro “violeta”, cuyo número Hash 
os 3 y que, por consiguiente, produce otra colisión. Al vagón "vio- 
leta” le añadimos el valor “0” contenido en el compartimiento y 
ponemos el vagón en la vía 5, mientras que en el compartimien- 
lo 3 introducimos el valor 5. La siguiente vía libre es la número 6. 


c) 


NIN PENES ASNO NEGO 
ENEMENTS EA 
UU Figura 15.—Pasos de la creación de un fichero secuencial con téc- * 


=20 nica de acceso Hash. c) Situación después de la escritura del último 
registro. 
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En la figura 16 se muestra la situación final de las vías, de los 
compartimientos y la composición del tren.. perdón, del fichero, 
El tren tiene uno o más vagones con las claves; en circunstancias 
normales, dichos vagones se colocan inmediatamente después de 
la locomotora. 

Pasemos ahora al examen de las 
con el empleo del método Hash 

En el apartado a) de la figura 17 se muestra la búsqueda de 
la clave "dorado". El número Hash correspondiente a esta clave 


a e 
jueda 


sc: Figura 16.—Disposición del fichero por acceso Hash. 
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dci) Figura 17.—Acceso Hash. a) La generación del número Hash tiene 
MÍ efecto inmediato. 


es 2 y, en consecuencia, abrimos el compartimiento 2, que con- 
tiene el valor 3. La locomotora se pone en marcha hacia la vía nú- 
mero 3, en donde encuentra el vagón “dorado” de forma inmedia- 
ta y sin problemas. 

Supongamos ahora que tratamos de buscar el vagón "verde", 
cuyo número Hash es 3. Abrimos el cempartimiento 3 y nos en- 
contramos con que contiene el valor 5. La locomotora se llevará 
a la vía 5; la situación se ilustra en el apartado b) de la figura 17. 
En la vía 5 nos encontramos, en realidad, el vagón “violeta”. Ob- 
servamos, no obstante, que éste contiene el valor 0 y no -1, lo que 
significa que hay una colisión y que en la vía O podemos encon- 
trar el vagón “verde”. Realizamos otro desplazamiento con la lo- - 
comotora, esta vez a la vía O, y allí encontramos, efectivamente, el 
vagón “verde”. 
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b) 


TOTES DENIB SANTINO 
EEE ALE 
E) Figura 17.—Acceso Hash. b) En el caso de “verde”, el número con- 


'' tenido en el compartimiento se lleva a la vía en la que se encuentra 
en realidad “violeta”. 


al? 


Supongamos ahora que hay que buscar el vagón “negro”. Na- 
turalmente, sabemos que no existe, pero el ordenador no es tan 
intuitivo como una persona. El número Hash de “negro” sería 5 
(X=224, Y=206, R1=224, R2=206, Z=52960). Abrimos el comparti- 
miento número 5 y nos encontramos con que contiene el valor -1, 
lo que significa que está vacío, o sea, que no existe dicha clave. 

Busquemos ahora la clave “rosa”, que también sabemos que 
no existe. El número Hash de "rosa” es 6 (X=229, Y=212, R1=220, 
R2=212, Z=54501). Abrimos el compartimiento 6 y encontramos el 
valor 4; con la locomotora nos desplazamos a la vía 4 y tendre- 
mos la situación que se ilustra en la figura 18 a). Observamos que 
en la vía 4 está el vagón "gualdo” y que no es precisamente el bus- 
cado; pero dicho vagón lleva el valor 2, indicando una colisión. 
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1 dorado 1 

sm ME 
gualdo 2 

a " 
violeta O 

A 
SU. 5 
6 


c) 


Figura 17.—Acceso Hash. c) No obstante, "violeta" apunta alla vía 0, 
y en otro desplazamiento del tren se encuentra el “verde” que se bus- 
caba. 


Con la locomotora nos desplazamos a la vía 2, en donde encon- 
tramos el vagón “añil” (Fig. 18 b). Tampoco este vagón es el bus- 
cado; en él encontramos el valor "-1”, lo que quiere decir que no 
hay otras colisiones o, dicho de otro modo, que la clave “rosa” no 
existe en el archivo. 

Veamos ahora o actuar para borrar 1 10, Para ha- 
cerlo, es preciso modificar los punteros. Se suele indicar en el pro- 
pio registro que se ha borrado utilizando un campo adecuado. La 
figura 19 a) muestra la situación después de borrar el registro 
“gualdo”. El número Hash de “gualdo” es 6. Abrimos el comparti- 
miento número 6 y nos encontramos con el valor 4. Pasamos a la 


4 


Figura 18.—Dos fases de la búsqueda de claves inexistentes (“rosa ”) 
con colisiones. a) Primera fase de desplazamiento. 


vía 4, encontramos el vagón “gualdo” y observamos que su pun- 
tero es 2; este valor lo introducimos en el compartimiento 6, sus- 
tituyendo al valor existente con anterioridad. Además, indicamos 
en el vagón que la información se ha anulado. En el apartado b) 
de la misma figura se muestra la situación después de la anula- 
ción del registro “añil”. 

Las ventajas del acceso Hash son notorias: en la generación 
de un fichero de acceso Hash, los ; 
zamiento alguno. El conjunto de las 28 ocupa poca memoria. 
Si las colisiones son pocas, el acceso a cualquier registro es muy 
rápido. 
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1 violeta O 1 
5 


e] Figura 18.—Dos fases de la búsqueda de claves inexistentes ("rosa") 
*% con colisiones. b) Puesto que el nuevo registro no es “rosa” y “añil” 
tampoco apunta a ningún otro, se llega a la conclusión de que la clave bus- 
cada no está en el archivo. 


No obstante, en los registros con acceso Hash existen tam- 
bién dos inconvenientes importantes: 


e no se puede leer el fichero en orden creciente o decre- 
ciente de clave si no se conocen las claves; 

e noes posible realizar una búsqueda en clave parcial, Si uti- 
lizamos como clave el apellido no es posible, por ejemplo, 
buscar todos los apellidos que comienzan por “ro”. . 


También para el acceso Hash es válido el conocido prover- 
bio de que "no se puede querer el beneficio sin cargar con el gas- 
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Figura 19.—Situación después de la anulación de dos registros “gual- 
do” en a) y "añil" en b). Observe la sustitución de los punteros. 


to”. Con frecuencia, 


1210] 


El árbol binario 


Presentamos uno de los más sencillos ejemplos de árbol bi- 
nario. Utilizaremos también los habituales 6 registros y el simbo- 
lismo del tren y de los vagones, aunque las vías estarán dispues- 
tas de una manera diferente. 

Al comienzo se parte con un nudo ferroviario, la “raíz” del ár- 
bol, que contiene una vía muerta en la que se aparcará el vagón, 
inmediatamente antes de que haya un cambio que permita tener 
acceso a la vía de la izquierda o a la vía de la derecha. En con- 
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verde —1 


Figura 19.—Situación después de la anulación de dos registros "gual- 
do" en a) y “añil” en b). Observe la sustitución de los punteros. 


e 


diciones normales las dos vías estarán cerradas. 


stinará a la . Por izquierda y dere- 
cha entendemos nuestra izquierda o derecha y no la que “ve” el 
conductor de la locomotora. 

Recordemos, de forma muy breve, cuanto se dijo en otros vo- 
lúmenes de nuestra biblioteca (por ejemplo, en los números 8 
y 9), acerca de que lin al! ) : le: datos 

: ) En cada uno de los nudos componentes se 
pueden engendrar otros dos nudos hijos (lo que da lugar a una 
subdivisión en árboles secundarios que tienen como raíz el nudo 
anterior). Cada nudo se nun ) lel 0. en adelante y cón- 

y dos punteros. El de la izquierda, si es diferente de 0, indica 
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el siguiente número que se encontrará siguiendo la vía de la iz- ) 
quierda, y el puntero de la derecha, si contiene un valor diferente 
de 0, puede significar dos cosas: si el valor es positivo indica el 
número del nudo que se encuentra siguierdo la vía de la dere- 
cha, y si es negativo, su valor absoluto indica cuál es su raíz. 

En el apartado a) de la figura 20 se muestra la situación inicial 
inmediatamente después de la apertura del fichero y con el va- 
gón “verde” dirigiéndose hacia una vía. En el apartado b) de la 
misma figura se muestra el vagón “verde' colocado en su vía 
muerta, el nudo ferroviario que se ha creado presenta dos vías, 
ambas cerradas (existe en ellas la palabra "NO”), 

En la parte c) se tiene la situación después de la grabación 
del registro “rojo”. El vagón rojo se ha encaminado a la vía de la 


Figura 20.—Diversas fases de la creación de un fichero organizado 
220 en árbol binario. En a) y b) la situación antes y después de la inser- 
ción de “verde”. En c) y d) se indica cómo queda después de la inserción 
de “rojo” y “añil”. Se observan los punteros negativos que apuntan a los 
registros situados más arriba, 
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MN Figura 20.—Diversas fases de la creación de un fichero organizado 


ls Y en árbol binario. En a) y b) la situación antes y después de la inser- 


ción de “verde”. En c) y d) se indica cómo queda después de la inserción 
de “rojo” y “añil”. Se observan los punteros negativos que apuntan a los 
registros situados más arriba. 


, 


izquierda del nudo “verde”, porque la clave de “rojo” es menor 
que la clave “verde”. Las dos vías de rojo están cerradas y el pun- 
tero izquierdo de “verde” contendrá ahora el valor 2. El puntero 
izquierdo de “rojo” contiene 0, mientras que el de la derecha con- 
tiene “-1” (la clave “verde” sigue a la de “rojo”). De forma análoga 
en d) se muestra la situación después de la grabación de “añil”. 
La locomotora parte de arriba, encuentra el nudo ferroviario “vet- 
de" y, habida cuenta de que la clave de “añil” es menor que la de 
“verde”, se dirige a la vía de la izquierda. Luego encuentra el nudo 
“rojo” y al ser la clave de “añil” menor que la de “rojo” se dirige 
a la vía de la izquierda y crea un nuevo nudo con dos vías que, 
por ahora, están cerradas, En la vía muerta deposita el vagón “añil”. | 
El puntero izquierdo de “rojo” contiene ahora 3, El puntero izquier- 
do de “añil” contiene O y el de la derecha "2 (antes de “añil” está 
“rojo”). ' 
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| Figura 20.—Diversas fases de la creación de un fichero organizado 
en árbol binario. En a) y b) la situación antes y después de la inser- 
ción de “verde”. En c) y d) se indica cómo queda Jdespués de la inserción 
de “rojo” y “añil”. Se observan los punteros negativos que apuntan a los 
registros situados más arriba. 


En la figura 21 encontramos la situación después de la inser- 
ción del último registro. Con un mínimo de imaginación no resul- 
ta difícil reconstruir las etapas intermedias, que aquí describimos 
“de corrido”. Para la inserción del registro “dorado”, la locomotora 
vuelve a partir desde arriba, encuentra el nudo “verde” y se diri- 
ge a la vía de la izquierda, encuentra luego el nudo “rojo” y toma 
de nuevo la vía de la izquierda. La locomotora encuentra luego 
el nudo "añil”, pero esta vez se encamina a la vía de la derecha, 
creando el nudo ferroviario “dorado” con dos vías cerradas por 
ahora. El vagón “dorado” se deposita en la vía muerta del nudo 
“dorado”, El puntero derecho de “añil” contiene el valor 4 y su va- 
lor anterior se ha transferido al puntero derecho de “dorado”. En 
el puntero izquierdo de “dorado” se pone el valor 0. 
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' Figura 21.—Situación del árbol binario después de la inserción del 
último registro. 
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Por lo que respecta a la inserción del registro “gualdo”, la lo- 
comotora, después de haber encontrado el nudo “verde”, gira a la 
izquierda y luego encuentra el nudo “rojo” y se dirige a la vía de 
la izquierda, en donde encuentra el nudo “añil” y desemboca en 
la vía de la derecha; finalmente encuentra el nudo “dorado”, toma 
la vía de la derecha y crea un nuevo nudo ferroviario en donde 
deposita el vagón “gualdo” y crea dos nuevas vías, cerradas por 
ahora. El puntero derecho de “dorado” contiene ahora el valor 5 
y su valor anterior se ha colocado en el puntero derecho del re- 
gistro “gualdo”. El puntero izquierdo de “gualdo” contiene O. En 
este punto, dejamos como ejercicio para el lector la no difícil in- 
serción del registro "violeta". 


Cómo se efectúa la búsqueda en un árbol binario 


Partamos de la situación representada en la figura 21. Supon- 
gamos que queremos buscar la clave “dorado”. Con la locomoto- 
ra en el nudo raíz nos encontraremos con la clave “verde”; nos di- 
rigiremos entonces a la vía de la izquierda porque la clave de bús- 
queda es menor que la del nudo. La locomotora encuentra suce- 
sivamente el nudo “rojo”, se dirige a la vía de la izquierda, en don- 
de encuentra el nudo “añil”, y sigue aquí por la vía de la derecha, 
en donde encuentra el nudo “dorado”. 

Por el contrario, si queremos buscar la clave "rosa", que sa- 
bemos que no existe, la locomotora, después de haber encontra- 
do el vagón “verde” se dirigirá a la vía da la izquierda, y luego 
encontrará el nudo “rojo”. Entonces debería pasar a la vía de la de- 
recha (“rosa” > “rojo”), pero no puede proseguir porque la vía está 
cerrada. Ello significa que el vagón “rosa” no existe. 

En la figura 22 se muestra la situación después de la elimina- 
ción de la clave “dorado”; es oportuno observar cómo se ha rea- 
lizado la anulación del nudo, cambiando adecuadamente los pun- 
teros (la clave “dorado”, aunque fisicamente anulada, sigue exis- 
tiendo). 

El árbol binario es una estructura válida sobre todo porque 
permite la actualización, la creación y el borrado manteniendo la 
ordenación de los datos, Para que las operaciones de búsqueda 
sean eficientes es preciso, no obstante, que el árbol esté "equili- 
brado”. ; 

Un árbol se dice que está desequilibrado si la mayoría de las 
vías, bien sean de la derecha, bien de la izquierda, están cerradas. 
Por ejemplo, un árbol creado a partir de claves ya ordenadas (tan- 
to en sentido ascendente como descendente) está des- 
equilibrado sin duda alguna. Las técnicas especiales que permi- 
ten crear y mantener árboles equilibrados quedan fuera del ob- 


50 


Á ius 22.—Situación del árbol binario al eliminar el registro 
MES “dorado”. 


jeta de esta monografía. El árbol binario puede ser recorrido de 
dE lean todas las claves en orden y es posible realizar 
Sq uedas con claves parciales. 

Vamos a repetir ahora algunos términos técnicos que se sue- 
len utilizar en el estudio de las estructuras en árbol. Un árbol se 
suele representar con la raíz arriba y con un crecimiento desde 
arriba hacia abajo, denominándose “nudo” el punto en donde se 
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bifurcan las “ramas” y “hojas” a los puntos en donde no hay bifur- 
caciones, sino un registro. En cada nudo y cada hoja hay un re- 
gistro. Cada nudo puede tener uno o dos hijos, denominados tam- 
bién “subnudos” o nudos secundarios; el hijo de la izquierda debe 
tener un valor inferior al valor del padre. Las hojas no tienen hijos 
y, en tal caso, el puntero contiene el valor "NIL” (que hemos re- 
presentado por NO en las figuras). 

Existen varias maneras de recorrer un árbol. La que se utiliza 
en condiciones normales se denomina “en orden”, porque sigue 
las claves de manera ordenada. La regla aplicable al recorrido en 
orden es la siguiente: pasar primero a la hoja de la izquierda, lue- 
go por su nudo y, finalmente, por la hoja de la derecha. 

La figura 23 muestra el diagrama de flujo de la impresión de 
un árbol en orden. Para comprender mejor el procedimiento uti- 
lizaremos la tabla de los estados que, como se dijo anteriormente, 
proporciona el contenido de algunas variables en las diversas fa- 
ses. Presentamos primero la situación final de la tabla y luego la 
situación paso a paso. He aquí la situación final: 


X Primero 


añil 
dorado 
gualdo 

rojo 
verde 
violeta 


0004 0 n= E 


O) — 0d 4 0 DN ¡ 


ONVOocOunN E 
EN 


La tabla se desarrolla en 8 pasos y es'á constituida por varias 
columnas. 

La columna “Paso” está numerada de forma progresiva e in- 
dica el número de la fase que se está desarrollando. 

La columna “X Primero” indica el valor de la variable numé- 
rica “X” al comienzo de fase. 

La columna “Izq(x)” indica el contenido del puntero de la iz- 
quierda existente en el nudo “X”. 

La columna "Der(x)” indica el contenido del puntero de la de- 
recha existente en el nudo “X”. : 

La columna “X Después” indica el contenido de “X” al final de 
la fase, pues en cada fase la variable "X” cambia de valor. 

La columna “Entrada en B” indica si el reenvío al algoritmo se 
hizo al punto “B” y no al punto “A”. 

La columna “Impresión” indica qué se imprime; el símbolo 
indica que no se imprime nada en absoluto. 
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CN] 


Escribe 
valor (x) 


Figura 23.—Gestión de un fichero en árbol binario. Diagrama de flu- 

UY jo de la técnica de recorrido “en orden” del árbol. OBSERVACION: 
A y B'identifican los puntos de nueva eritrada y se podrían eliminar (sir- 
ven solamente para la descripción de los diversos pasos en la “tabla de 
los estados”). 


1 
e 
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Veamos paso a paso lo que sucede. La situación del primer 
paso es: 


Y 
A a 


e 


Al comienzo del primer paso la variable X contiene el valor 
1; el puntero de la izquierda contiene el valor 2 y el de la derecha 
contiene el valor 6. Esto significa que al “doblar la esquina” a la 
izquierda se encuentra el nudo 2, que debe tener un valor inferior 
al nudo 1, y al girar a la derecha se encuentra el nudo 6, que debe 
tener un valor superior. 

Para recorrer el árbol "en orden” tendremos que examinar pri- 
mero todas las vías de la izquierda, y para ello obligamos a que 
X tenga el valor contenido en el puntero izquierdo. Naturalmente, 
no se realiza ninguna impresión y la situación después del paso 
2 será la siguiente: 


1 1 2 2 
2 2 3 3 


Estamos en el segundo nudo: el puntero izquierdo contiene 
el valor 3, mientras que el puntero derecho contiene el valor "-]”. 
Obligamos a que en “X” exista el contenido del puntero izquierdo; 
es decir, 3. Naturalmente, no se realiza ninguna impresión. 

La situación después del paso 3 es: 


Estamos en el tercer nudo: el puntero izquierdo contiene O y 
el puntero derecho contiene el valor 4. Hemos llegado a una hoja 
y por ello podemos imprimir el contenido del registro. Puesto que 
el puntero derecho no contiene un valor negativo, introducimos 
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mx" ol valor 4 y volvemos al punto “A” (hacer siempre referen- 
Pla nl diagrama de flujo de la figura 23). 
la situación después del paso 4 será la siguiente: 


h 
añil 
dorado 


Nos encontramos en el cuarto nudo: el puntero izquierdo con- 
Hlene O y el puntero derecho 5. 

En primer lugar, imprimimos el contenido del registro (dora- 
io) y luego introducimos en “X” el contenido del puntero dere- 
uho, porque este valor es positivo. Luego volvemos al punto "A”. 

La situación después del paso número 5 será: 


Nos encontramos en el nudo 5 y puesto que el puntero iz- 
quierdo contiene 0, imprimimos el contenido del registro. El pun- 
lero derecho contiene un valor negativo (-2) y lo transferimos con” 
signo positivo a "X”. A continuación, volvemos a entrar en la su- 
brutina, pero esta vez en el punto B. 

La situación después del paso 6 es la siguiente: 


. 
V 


l 1 2 6 2 
2 2 3 =1 3 
3 3 0 4 4 
4 4 0 5 Eso 
5 5 0 -2 2 
6 2 3 =] 1 
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Puesto que “X” contiene el valor 2, imprimiremos el conteni- 
do del nudo número 2 (es decir, “rojo”). Luego observamos que: 
el puntero derecho es negativo y lo transferimos a la variable X' 
con el signo positivo. Volvemos a entrar en la subrutina, pero aho- 
ra en el punto "B”. La situación de la tabla después del paso 7 es 


la siguiente: 
EXE 


1 2 6 2 
2 3 =1 3 
3 0 4 4 
4 0 5 5 
5 0 -2 2 
2 3 -1 1 
1 2 6 6 


Nos encontramos en el nudo número 1, pero hemos entrado 
desde el punto B. Escribimos el contenido del registro (verde) y 
luego, como el puntero derecho no es regativo, transferimos su 
valor a “X” y volvemos al punto “A”. 

La situación final de la tabla de los estados es la siguiente: 


3004 0 bn — 


X Primero | Izg(x) 


añil 
dorado 
gualdo 
rojo 
verde 
violeta 


pa 


00 0) 014 00 nn — d 


O) —= MN UA 0 hn — j 


E A 


OWWODONwW E 
OO-=nNusm 


Nos encontramos en el sexto nudo: el puntero izquierdo con- 
tiene el valor O y por ello imprimimos el contenido del registro 
(violeta). Puesto que el puntero derechc contiene el valor O, ha- 
brá terminado el recorrido del árbol. 

Una pequeña observación final es que la técnica de los pun- 
teros negativos “hacia atrás” no es general. No obstante, la hemos 
encontrado cómoda (además de que es eficiente porque abrevia 
las nuevas subidas de los nudos, que, de no ser así, serían nece- 
sarias) sobre todo en la realización de programas en BASIC. 
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LAS BASES DE DATOS 


Fundamentos de las bases de datos 


e ha indicado con anterioridad que es frecuente 
que dos o más tipos de archivos, o ficheros, se 
procesen tanto de forma independiente como 
de forma conjunta entre sí. 

Por ejemplo, el fichero de clientes, contiene 
informaciones tales como su código, el apellido, 
el nombre, el domicilio, el código fiscal, etc. Al 
mismo tiempo, otro fichero contiene los movi- 

y mientos realizados por los clientes, así como las 
informaciones pertinentes: código del cliente, fecha, código de la 
mercancía, cantidad vendida, etc. Es fácil intuir que la actualiza- 
ción del fichero de clientes se realiza en tiempo y en modo dife- 
rentes con respecto a los del fichero de movimientos. El fichero 
de clientes se puede actualizar cuando se incluye un nuevo clien- 
le o cuando tenemos que modificar los datos de alguno. El fichero 
de movimientos se actualiza de forma cotidiana, pero solamente 
para aquellos clientes que hicieron adquisiciones. Sin embargo, 
cuando imprimimos las facturas tenemos que trabajar con ambos 
ficheros. 

Es también intuitivo pensar que no conviene duplicar los da- 
tos del cliente en los movimientos; sería un enorme desperdicio 
de espacio en disco y puede dar lugar a confusión si nos equi- 
vocamos y escrí:bimos de manera diferente los datos en los dos 
ficheros. 


n de las informaci 
eto eminentemente divulgativo de esta 
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na 


monografía, nos limitaremos a una base de datos de tipo didácti- 
co, constituida por dos ficheros individuales y una sola clave de 
acceso. Para no molestar y no hacer que se produzcan sospechas 
de “connivencia” con la Renfe, la explicación correspondiente no. 
se hará con la analogía de locomotoras y vagones, sino con otra 
más apta para aclarar estos conceptos. 


Un ejemplo muy sencillo 

Concibamos el fichero como si fuera un archivador con cajo- 
nes, vacío si no contienen nada los registros. Cada registro está 
representado por un cajón. El primer cajón lleva el número 0; el 
segundo, el número 1, y así sucesivamente. 

Cada cajón, o casillero, del fichero de “clientes” contiene dos 
compartimientos. El compartimiento de la izquierda contiene los. 
datos del cliente. El compartimiento de la derecha contiene un 
puntero. Si el puntero es de valor -1 (o, en general, NIL), ello sig- 
nifica que no hay movimientos de ese cliente; en caso contrario 
indica en qué registro del fichero de “movimientos” se encuen- 
tran las adquisiciones o, dicho de otro modo, el número del regis- 
tro que se debe procesar. 

Cada casillero del fichero de “movimientos” contiene, a su vez, 
tres compartimientos: el de la izquierda contiene los datos corres- 
pondientes al movimiento, el central contiene el número del re- 
gistro del fichero de “clientes” que debe leerse para saber el ape- 
llido del cliente, y, finalmente, el compartimiento de la derecha 
contiene un puntero. Si el puntero contiene el valor -1 quiere de- 
cir que no hay otros movimientos; en caso contrario, indica el pró- 
ximo movimiento (en la práctica, el número del registro que debe 
procesarse para conocer la adquisición siguiente realizada por el 
mismo cliente). 

El fichero de clientes se crea antes de efectuar cualquier mo- 
vimiento. La figura 1 muestra la situación, estando vacíos los ar- 
chivadores del fichero de clientes y del fichero de movimientos. 

Se presenta ahora el señor “Verde” y realiza dos adquisicio- 
nes. No tenemos ningún cliente y, por consiguiente, tenemos que 
escribir sus datos personales; los escribimos en el fichero de clien- 
tes. Es fácil imaginar la situación después de la inscripción del 
cliente Verde: el casillero O contiene la clave “Verde” y, además, 
contiene el valor -1, que sirve para indicar que, de momento, no 
hay movimientos. 

La figura 2 muestra, por el contrario, la situación después del 
registro de los dos movimientos realizados por el cliente Verde. 
Se han ocupado los dos casilleros O y 1 del fichero MOVIMIEN- 
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CLIENTES MOVIMIENTOS 


añ mzal 
0 
1 
AN | e TICO > 
2 Ñ 
ME : 
| 
| | 
5 
| 6 
1 2 AAA 8 
e or Y TA 
N.o 


1 2 3 


o 


COMPARTIMIENTOS — CASILLERO 
A Figura 1.—Situación de nuestra pequeña base de datos antes de in- 
ES troducir cualquier registro. Los "archivadores” de CLIENTE y MO VI- 
MIENTOS están vacíos. 
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CLIENTES MOVIMIENTOS 


: 000 Jo [ 7] 0 
- 
Eo 
| 
| ; 
4 OSA ALO 
5 
6 A : 
O 
N.o 
1 2 3 
ES, 


N.o 
COMPARTIMIENTOS CASILLERO 


Figura 2.—Gestión de una base de datos: situación después de ac- 

tualizar el registro de Verde y los movimientos asociados a él. El 
puntero de Verde tiene ahora el valor 0, mientras que antes de registrar 
los movimientos tenía el valor -1 (NIL - nada y) 
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NOS Cada casillero lleva la indicación genérica de "DATOS" (para 
lan [mes de nues:ra simulación no es preciso saber nada más). Sa- 
hwmos que cada casillero tiene tres compartimientos: en el pri- 
moro se almacenan los “datos”, el segundo indica en qué casillero 
lel lichero “clientes” se encuentra la identificación del cliente y 


wl lorcer compartimiento indica si hay otros movimientos realiza- 
dos por el cliente. En el último compartimiento del casillero 0 se 
encuentra el valor 1 y ello significa que el cliente ha hecho otra 
aclquisición y que esta adquisición está descrita en el casillero 1. 


ln el último compartimiento del casillero 1 encontramos el valor 
|, lo que quiere decir que el cliente no ha efectuado otras ad- 
(uisiciones. 

En el archivador de clientes han cambiado también algunas 
voras: el último compartimiento del casillero O ya no contiene "-1”, 
hino el valor 0, lo que significa que el cliente Verde ha realizado 
nclquisiciones y que su primer movimiento se encuentra en el ca- 
alllero O del archivador de los movimientos. 

Hemos dicho ya que antes de escribir los movimientos ten- 
remos que escribir las características del cliente en el fichero 
de clientes. Por ello rogamos a la sección de ventas que nos pro- 
porcione inmediatamente los datos de los nuevos clientes. En con- 
diciones normales, el cliente se inscribe de forma inmediata en el 
fichero, mientras que los movimientos se almacenan al final de | 


la 


trabala en 1 


es yl mientos ge registran: de inmediato, En nu: 
tra simulación haremos referencia al funcionamiento de tipo 
"batch". El departamento de ventas, en respuesta a nuestras exi- 
gencias, nos comunica los datos de tres nuevos clientes: Rojo, Añil 
y Dorado. 

La figura 3 muestra la situación después de registrar a los tres 
nuevos clientes. Cada uno de estos tres clientes no tiene ningún 
movimiento por ahora. El departamento de ventas nos comunica 
luego que el cliente Rojo ha realizado una adquisición y que el 
cliente Dorado ha efectuado dos adquisiciones. El señor Añil no 
ha realizado ninguna adquisición, excusándose por haber olvida- 
do el dinero en casa y prometiendo venir al día siguiente. 

No es difícil imaginar la situación después del registro de la 
única adquisición realizada por el cliente señor Rojo. En el archi- 
vador de clientes, en el último compartimiento del casillero Rojo 
estará el valor 2, porque el primer movimiento realizado por el 
cliente se encuentra en el fichero de movimientos y, precisamen- 
te, en el casillero 2. En este casillero del fichero de movimientos 
encontramos: en el primer compartimiento, los datos correspon- 
dientes a lo que ha adquirido el cliente en el segundo comparti- 
miento, la referencia a sus datos (es decir, lo relativo al casille- 
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Figura 3.—Situación después de la grabación de los datos de tres 
nuevos clientes: Rojo, Añil y Dorado. 
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1 | del fichero de clientes), y en el tercer compartimiento hay la 
Indicación de que no existen otros movimientos. 

La figura 4 muestra la situación después de registrar también 
las dos adquisiciones realizadas por el cliente señor Dorado. En 
ul fichero de clientes, el señor Añil sigue con el puntero en -1 
(NIL - nada), que indica la falta de adquisiciones, mientras que el 
vliente Dorado tiene un puntero dirigido al casillero 3 del fichero 
de movimientos. En el fichero de movimientos, el casillero núme- 
ro 3 contiene: en el segundo compartimiento, la indicación de que 
vl nombre del cliente (Dorado) se encuentra en el casillero nú- 
mero 3 del fichero de clientes, en el primer compartimiento se in- 
dica lo que ha adquirido y en el tercer compartimiento se indica 
que la siguiente adquisición se encuentra registrada en el casille- 
ro número 4. En el último compartimiento del casillero número 4 
está el valor -1, porque no hay otras adquisiciones. 

El departamento de ventas nos avisa luego de haber captado 
alos clientes Gualdo y Violeta. Dejamos como fácil ejercicio al lec- 
lor la representación gráfica de dicha situación, así como de la 
posterior a la comunicación habitual del departamento de ventas, 
según la cual el señor Gualdo ha efectuado una sola adquisición. 

El movimiento se registrará en el casillero número 5, cuyo úl- 
limo compartimiento nos indicará que no existen otros movimien- 
tos. En el fichero de clientes, el último compartimiento del casi- 
llero 4 nos indica que el primer movimiento se encuentra en el 
casillero 5 del fichero de movimientos. 

Al final de la jornada el departamento de ventas nos avisa de 
que el cliente Violeta ha realizado una adquisición. La figura 5 
muestra la situación después de esta última actualización de los 
dos ficheros y teniendo en cuenta también lo que se acaba de in- 
dicar. En el fichero de clientes, el puntero del cliente Violeta in- 
dica que la primera adquisición se encuentra en el sexto casillero 
del fichero de movimientos. En el fichero de movimientos, el úl- 
timo compartimiento del casillero 6 nos informa que el cliente Vio- 
leta no tiene ningún otro movimiento. 


Más actualizaciones 


Dijimos ya que la actualización no se suele realizar de forma 
inmediata, sino de forma periódica, por ejemplo al final de la jor- 
nada de trabajo o al final de la semana. Al final de la jornada, el 
departamento de ventas nos avisa que el señor Verde ha hecho 
otra adquisición, que el señor Rojo hizo tres, el señor Añil realizó 
una, el señor Dorado otra, el señor Gualdo efectuó dos adquisicio- 
nes y el señor Violeta un movimiento. Sabemos que los movimien- 
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Jia Figura 4. —Situación después de la grabación de los movimientos 
MES de los clientes Rojo y Dorado. El cliente Añil no ha hecho todavía 
ninguna adquisición y esta circunstancia le indica el puntero -1 (NIL - 


nada) del fichero CLIENTES. 
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Figura 5.—Situación de la base de datos inmediatamente después 
de la grabación del movimiento del cliente Violeta. 


65 


tos se colocan "a la cola” de los registros ya existentes en el fi- 
chero de movimientos. En la práctica, una vez que se haya llena- 
do hasta el casillero 6, llenaremos los casilleros desde el número 
7 en adelante. ¿Sucederá lo mismo en el fichero de los clientes? 
La respuesta es afirmativa, tal como se verá de inmediato. 

La figura 6 nos muestra la situación después de registrar el 
nuevo movimiento del cliente Verde. Lo primero que hay que ha- 
cer es abrir el casillero O del fichero de clientes y tomar nota del 
contenido de su último compartimiento (es decir cero) (Fig. 5). A 
continuación, se depositan los datos en el casillero 7 del fichero 
de movimientos y en el segundo compartimiento del mismo ca- 
sillero se pone cero, que es la clave que sirve para indicar el lu- 
gar del nombre en el registro de clientes. En el tercer comparti- 
miento ponemos de forma análoga cero, que es el valor que he- 
mos encontrado en el último compartimiento del fichero de clien- 
tes. Finalmente, en este último compartimiento mencionado del fi- 
chero de clientes ponemos el valor 7, que es el número del casi- 
llero del fichero de movimientos en donde se ha colocado el mo- 
vimiento correspondiente. 

De este modo, si abrimos el casillero O del fichero de clientes 
sabemos que el cliente se llama Verde y que una de sus adqui- 
siciones se encuentra en el casillero 7 del fichero de movimien- 
tos. Abrimos este casillero y con el contenido de su último com- 
partimiento nos dirigimos al casillero O del mismo fichero. Abri- 
mos el 0 y el último compartimiento nos indica que hay otro mo- 
vimiento, precisamente en el casillero 1. Finalmente, abrimos el ca- 
sillero 1 y encontramos la adquisición; en el último compartimien- 
to se nos indica que no hay otros movimientos. 

La figura 7 nos muestra la situación cespués de registrar los 
tres movimientos del cliente Rojo. Los movimientos se han intro- 
ducido en los casilleros 8, 9 y 10; en el último compartimiento de 
cada casillero está el puntero al siguiente movimiento. Debemos 
prestar atención al último compartimiento del casillero 10, que 
contiene el valor 2, tomado del último compartimiento del casille- 
ro del cliente Rojo antes de que fuera actualizado. El último com- 
partimiento del casillero Rojo en el fichero de clientes tiene como 
puntero el valor 8. A costa de resultar pesados, veamos con de- 
talle otras situaciones con la ilustración correspondiente. 

La figura 8 muestra la situación después de registrar la adqui- 
sición hecha por el cliente Añil. También en este caso el conteni- 
do anterior del último compartimiento del casillero 2 (de Añil) se 
ha colocado en el último compartimiento de la adquisición alma- 
cenada en el casillero 11 del fichero de movimientos. Intenten us- 
tedes acabar las demás actualizaciones. 

La figura 9 muestra la situación después de registrar la adqui- 
sición realizada por el cliente Dorado. 
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Kñ y Figura 6.—Situación después de la grabación de otro movimiento 
Ez del cliente Verde. 
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Figura 7.—Situación después de la grabación de otros tres movi- 
mientos del cliente Rojo. 
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Figura 8.—Situación después de la grabación de un movimiento del 
cliente Añil. 
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Figura 9.—Situación después de la grabación de otro movimiento 
del cliente Dorado. 


10 


La figura 10 muestra la situación después de actualizar las pos- 
lerlores adquisiciones realizadas por el cliente Gualdo. 

La figura 11 muestra la situación después del registro del úl- 
Ilmo movimiento realizado por el cliente Violeta. 

De forma intencionada, no hemos hablado hasta ahora de 
vómo se realiza la búsqueda del nombre del cliente en el fichero 
vorrespondiente, con el objeto de no hacer más farragosa todavía 
la explicación. 


Qué hacer con las bases de datos 


En condiciones normales, para tener acceso a las claves se uti- 
lia la técnica explicada con anterioridad en el acceso de índices, 
es decir, las claves se almacenan en una tabla ordenada en sen- 
lido ascendente, A menudo se emplea el árbol binario para alma- 
cenarlas. 

¿Cómo podemos utilizar y sacar provecho de esta base de da- 
los que estamos creando? Se pueden efectuar en ella diversas 
Operaciones: 


e consultar solamente el fichero de clientes; 

e consultar solamente el fichero de movimientos; 

e consultar simultáneamente los dos ficheros; 

e actualizar, en el sentido más amplio, los dos ficheros. 


Consultando el fichero de clientes podemos tener todas las 
informaciones sobre ellos y, además, saber de cada uno de los 
clientes si efectuó o no al menos una adquisición. El fichero de 
clientes podemos consultarlo tanto por el orden de inscripción 
del cliente como por el orden alfabético de sus apellidos. Pode- 
mos modificar los datos existentes en el registro y podemos aña- 
dir nuevos clientes o suprimir algunos. 

Hagamos de nuevo referencia a la figura 11. Si leemos el fi- 
chero de clientes de forma secuencial, tendremos a nuestra dis- 
posición los clientes en el orden siguiente: Verde, Rojo, Añil, Do- 
rado, Gualdo, Violeta. Si leemos el fichero de clientes con la ayu- 
da de la clave dispondremos de los clientes en orden alfabético: 
Añil, Dorado, Gualdo, Rojo, Verde y Violeta. Tanto en uno como 
en otro caso, al observar el último compartimiento de cada casi- 
llero podemos saber si el cliente ha realizado adquisiciones o no 
y, en caso afirmativo, dónde encontrar los datos de éstas. 

Al consultar el fichero de movimientos podemos saber cuán- 
tas adquisiciones se han realizado y en el orden en que se efec- 
tuaron. Podemos saber si la adquisición fue hecha por un cliente 
o por otro, y para averiguar su nombre basta consultar el fichero 
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Figura 10.—Situación después de la grabación de otros dos movi- 
mientos del cliente Gualdo. 
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Figura 11.—Situación después de la grabación de otro movimiento 
del cliente Violeta. 
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de clientes. Podemos añadir otras adquisiciones, modificar los da- 
tos de un registro y suprimir adquisiciones Haciendo siempre re- 
ferencia a la figura 11 y leyendo de forma secuencial el fichero 
de movimientos obtenemos la lista de las adquisiciones en el or- 
den en que se efectuaron y, sin necesidad de consultar el fichero 
de clientes, podemos saber si se efectuaron o no por el mismo 
cliente. 

Si queremos consultar los dos ficheros juntos debemos tomar 
como guía (maestro) uno de los dos. Si suponemos como guía el 
fichero de los clientes podemos saber qué adquisiciones hizo 
cada cliente. Por el contrario, si tomamos como guía el fichero de 
movimientos, podemos saber para cada movimiento el nombre 
del cliente que lo efectuó. La figura 11 nos indica también cómo 
se puede operar, por ejemplo, para saber la situación completa 
del cliente Gualdo. En la tabla de las claves encontramos la refe- 
rencia 4 para él. Abrimos el casillero 4 del fichero de clientes y 
encontramos allí los datos del cliente y, además, un puntero que 
contiene el valor 13 y que está dirigido al fichero de movimien- 
tos. A continuación nos dedicamos a éste. Abrimos el casillero nú- 
mero 13 y encontramos los datos correspondientes a una adqui- 
sición, y luego, en el último compartimiento, encontramos el va- 
lor 14, Abrimos el casillero 14, encontramos los datos correspon- 
dientes a otra adquisición, y en el último compartimiento encon- 
tramos el valor 5. Abrimos el casillero 5 y encontramos los datos 
correspondientes a otra adquisición. Finalmente, en el último com- 
partimiento, encontramos el valor -1, que indica que no se efec- 
tuaron más adquisiciones. De este modo se buscan los movimien- 
tos realizados en la última actualización, luego los de la penúltima 
actualización (en nuestro caso, primero los datos de la segunda ac- 
tualización y luego los de la primera) y así sucesivamente en sen- 
tido ascendente. 

La figura 12 muestra la situación después de anular la tercera 
adquisición realizada por el cliente Rojo. Para ello abrimos el ca- 
sillero 1 del fichero de clientes y en el último compartimiento en- 
contramos que sus adquisiciones han de buscarse en el fichero 
de movimientos a partir del casillero 8. Abrimos el casillero 8 del 
fichero de movimientos y su último compartimiento nos indica que 
el siguiente casillero es el número 9. Abrimos el casillero núme- 
ro 9 y en su último compartimiento está la indicación de que la 
siguiente adquisición se encuentra en el casillero 10 y, además, 
éste es el registro que queremos eliminar. Bastará a este respec- 
to, para indicar que el registro se ha anulado, que introduzcamos 
el valor -1 en el compartimiento del cliente. La anulación está con- 
cluida; como se dijo con anterioridad, no hemos previsto la recu- 
peración del espacio libre. En general, pues, para anular un mo- 
vimento bastará poner un -1 en el código del cliente. 


14 


CLIENTES MOVIMIENTOS 


| os Po [> 
ROJO 1 
A oaros | 1 |-1| 2 
HH. Me 
paros E 4 
o ES 
VIOLETA | 1 5 | 
y CO AA 
No 1 
COMPARTIMIENTOS «asi ero | paros ENE 11 
1] 
A 
1 2. 3 
E 


COMPARTIMIENTOS — casiLLERO 


] | Figura 12.—Situación después de la anulación de un movimiento del 
cliente Rojo. 
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Figura 13.—Situación después de la anulación de un movimiento del 
cliente Añil. 
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Finalmente, la figura 13 muestra la situación después de la 
anulación de la única adquisición realizada por el cliente Añil. 
Abrimos el casillero del cliente Añil y en el último compartimien- 
lo encontramos el valor 11. Abrimos el casillero 11 del fichero 
de movimientos y en el último compartimiento encontramos el 
valor -1, que corresponde al hecho de que no hay otras adquisi- 
ciones. Para indicar que el registro fue anulado, en el segundo 
compartimiento, en el lugar de la referencia al cliente, ponemos 
el valor -1 y cerramos el casillero, En el último compartimiento 
del casillero del cliente Añil ponemos el valor -1, extraído del úl- 
timo compartimiento del casillero de movimientos y, de este 
modo, sabemos que no hay otros movimientos (entre nosotros, un 
cliente de este género vale la pena suprimirlo del archivo, pues 
no es nada rentable). 

Debería ser evidente, pero, no obstante, hemos de remarcar 
el hecho de que antes de eliminar un cliente del archivo deberán 
eliminarse TÓDOS sus movimientos. La eliminación se suele efec- 
tuar suprimiendo la entrada correspondiente en la tabla de las cla- 
ves y señalando el registro que se ha anulado. 

El sistema que hemos utilizado para actualizar los ficheros tie- 
ne el inconveniente de que cuando queramos conocer los movi- 
mientos efectuados por cada cliente éstos no se presentarán en 
el orden en que se efectuaron. Por supuesto, es posible actuar de 
modo que se tengan los movimientos en el orden exacto en que 
se realizaron. Sin embargo, no hemos querido elegir este camino 
porque la técnica adoptada es la más rápida y sencilla, por cuan- 
to que limita las operaciones de entrada/salida. 
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PROGRAMAS Y SUBRUTINAS PARA GESTIONAR 
FICHEROS 


Especificaciones 


omenzamos ahora la presentación y comenta- 
rio de los primeros programas para la gestión 
de ficheros como los que hemos visto en los 
ejemplos de capítulos anteriores; en nuestra 
segunda monografía sobre bases de datos 
abordaremos los casos más complejos. Trata- 
remos, sobre todo, de eliminar las dudas e in- 
e convenientes puestos de manifiesto; presenta- 
E ASA] remos, además, programas para la recupera- 
ción del espacio debido a anulación de los registros. En los fiche- 
ros de acceso directo utilizaremos el primer registro para mante- 
ner algunas informaciones, mientras que emplearemos los regis- 
tros sucesivos para conservar los datos del fichero. En el PASCAL 
UCSD los registros de un fichero de acceso aleatorio están nume- 
rados del O al 32767 y en el BASIC MS-DOS están numerados del 
l al 32767: en un intento de simplificar esta cuestión y no introdu- 
cir elementos que despisten, en UCSD no utilizaremos el registro 


O. 

En los programas especiales, prepararemos el fichero con to- 
dos los campos adecuadamente puestos a cero y dispondremos 
el espacio en disco para su máxima amplitud. De este modo es- 
tableceremos un poco de orden en nuestros archivos y tomare- 
mos precauciones ante la posibilidad de que otros programas nos 
"roben” el espacio en disco. 

En el primer registro almacenamos dos informaciones: cuán- 
tos registros podrá contener el fichero y cuál será el primer re- 
gistro a grabar. 

Además, hemos de tener presente que una vez asignado el 
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espacio en disco no tendrá ningún significado el empleo de EOF 
(final de fichero). Si queremos utilizar esta técnica, tendremos que 
escribir un programa que configure de manera adecuada el archi- 
vo. 

Para la gestión de las claves no utilizaremos tablas en memo- 
na, sino otro fichero. Por consiguiente, diremos adiós a los “arma- 
nos" y alos “vagones”. En algunos casos utilizaremos para las cla- 
ves el árbol binario 

Presentaremos los programas tanto en BASIC MS-DOS como 
en PASCAL UCSD y los nombres de las sirbrutinas serán idénticos. 
Todos los programas se han incluido en el apéndice, en donde, 
en un intento de ser más claros, las llamadas a las subrutinas 
(GOSUB) se han destacado de forma adecuada. Antes de aden- 
trarnos en las diversas organizaciones, presentamos algunas sub- 
rutinas válidas en todos los tipos de fichero. 
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Subrutina de borrado de pantalla 


Esta subrutina es muy sencilla y sólo hemos pretendido pre- 
sentarla con el fin de que sea la primera en adaptarse al propio 
hardware. Lamentablemente, para borrar los caracteres en la pan- 
talla se utilizan comandos que varían de un lenguaje a otro y de 
un ordenador a otro. Consultando los manuales correspondientes 
no resulta difícil identificar los caracteres de control que deben 
utilizarse. Lo importante, a nuestro juicio, es destacar la instrucción 
que debe modificarse y que ésta sea una sola (éste es precisa- 
mente el objeto de la subrutina). 

Para el lengua;e BASIC MS-DOS la subrutina está incluida en 
el apéndice y se repite para cada caso. La subrutina ocupa siem- 
pre las líneas 500 a 550, 


540 CLS 
550 RETURN 


También para el PASCAL UCSD las instrucciones correspon- 
dientes al procedimiento BORRADO se llevan al apéndice. A títu- 
lo excepcional damos en esta ocasión el procedimiento completo, 


PROCEDURE borrado de pantalla; 
BEGIN 

WRITE (CHR(28)); 
END; 
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Subrutina del teclado 


Cuando se introducen datos a través del teclado es conve- 
niente comprobar la validez de dichos datos. Por ejemplo, los cam- 
pos numéricos deben estar constituidos solamente por dígitos. Si 
ante la solicitud de datos numéricos se responde con una tecla al- 
labética, tanto en BASIC como en Pascal se emitirá un mensaje de 
error. Ello resulta antipático e incómodo, sobre todo si se tiene la 
buena costumbre de guiar al operador en la introducción de los 
datos presentando en la pantalla una “máscara”. Los mensajes de 
error perturban la máscara y, en Pascal, estos mensajes interrum- 
pen el programa. 

La subrutina prevé la introducción de datos del tipo INTEGER 
(entero), LONG INTEGER (para el Pascal), COMA FLOTANTE (para 
1 BASIC) o CADENAS. La variable SW indica el tipo de dato. Las 
variables XPOS e YPOS indican en qué línea y columna debe dar- 
se la respuesta. La subrutina prevé el control de la tecla (flecha a 
la izquierda, retroceso —backspace— o CONTROL-Q, según el or- 
denador que utilicemos), adecuada para corregir los caracteres 
ya escritos. 

En los ejemplos que presentamos, el valor binano de la tecla 
de borrado (backspace) es 8 para el Pascal y 29 para el BASIC. 
La subrutina continúa leyendo caracteres hasta que se pulse la te- 
cla <RETURN> Si el campo es numérico y no se están emplean- 
do las teclas del O al 9, se emitirá una señal acústica. Si el campo 
es alfabético y no se utilizan las teclas adecuadas se producirá 
también una indicación acústica. 

Si la variable SW se ha puesto a “1”, entonces el campo se con- 
siderará numérico y el valor se restituirá a la variable PEQUEÑO. 
Si la variable SW se ha puesto a “2”, el campo se considerará nu- 
mérico, pero el valor correspondiente se restituirá en la variable 
GRANDE. Finalmente, si la variable SW se ha puesto a "3", el cam- 
po se considerará alfabético y el resultado se restituirá en la va- 
riable ALFA. 

En BASIC, la subrutina se lleva al apéndice y, en las instruc- 
ciones 1000/1300, con el propósito de no complicar la vida a nues- 
tros amables lectores, se repetirá en cada estructura. Comente- 
mos las instrucciones siguientes: 


1040 ALFA$="" 

1050 GOSUB 15800:REM --->POSICIONA EL CURSOR 
1060 GOSUB 13900:REM --->LECTURÁ DEL CARACTER 
1070 IF ASC(CAR$)=13 THEN GOTO 1210 

1080 IF ASCICARS)<>8 THEN GOTO 1310 
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La subrutina no está acabada y la hemos interrumpido mo- 
mentáneamente para poderla comentar. Después de haber pues- 
to a cero la variable ALFA$ cedemos el control a la subrutina de 
"lectura de carácter”, que se encarga de leer un carácter a partir 
del teclado. En MS-DOS, para leer un carácter del teclado haremos: 


15940 CARS=INPUTK(1) 


¿No le parece sencillo? Hemos querido aislar dicha instruc- 
ción porque varía de una versión de BASIC a otra. Una vez leído 
un carácter y cargado en la variable CAR$ examinaremos su con- 
tenido y 


e si su valor corresponde al de la tecla de retorno (13) ce- 
deremos el control a la instrucción 1210; 

e si el valor es 8 (backspace) cederemos el control a la ins- 
trucción 1120, que se encargará de borrar el carácter co- 
rrespondiente; 

e si el valor no corresponde ni a la tecla de retorno ni a la 
de corrección, el control pasará a la instrucción 1310. 


Veamos la parte correspondiente al borrado: 


1120 1F LENCALFAS))1 THEN ALFAS=LEFTS(ALFAS, 
LEN (ALFAS)-1) ELSE ALFAS="" 

130 REM > 

1140 REM -- IMPRESION DEL CAMPO -- 

L15O REM on --- 

1160 GOSUB 15800:REM -->POSICIONA EL CURSOR 

1170 PRINT ALFAS;" *; 

1180 G0SUB 15800:REM -->POSICIONA EL CURSOR 

1190 PRINT ALFAS 

1200 GOTO 1080 


Esta segunda parte de la subrutina tiene como objeto borrar 
el último carácter introducido a través del teclado; también se 
aprovecha en parte en otros sitios de la subrutina. Hay que des- 
tacar la instrucción 1170, que escribe los caracteres introducidos 
a través del teclado seguidos por un espacio en blanco. La ins- 
trucción 1180 reposiciona el cursor y la instrucción 1190 vuelve a 
escribir los caracteres válidos introducidos a través del teclado 
de tal modo que el cursor quede posicionado de forma exacta. 
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Cuando se detecta un retorno de carro se activa la subrutina: 


IZA REN E TI TINOnes 
1220 REM :s NUEVA ENTRADA ;: 
ZION caos 
1240 IF SW=3 THEN RETURN 

1250 6%=0 


1260 FOR X=1 TO LEN(ALFAS) 

1270 6%=G4R10+AS5C(MIDS(ALFAS,X,1))-48 

1280 NEXT X 

1290 1F SW=1 THEN PEQUEROS=CSNG (64) ELSE 
GRANDES=68 

1300 RETURN 


Con estas instrucciones se vuelve a la subrutina que efectuó 
la llamada. Si SW se hubiera puesto a 3 (estamos en un campo al- 
fabético) se realiza el retorno de forma inmediata y, de no ser así, 
se tendrá que convertir el campo de cadena en un campo numé- 
rico, Las instrucciones 1260 a 1280 se encargan de rellenar el cam- 
po numérico GHt, Algunas versiones del lenguaje BASIC tienen la 
posibilidad de convertir la cadena en un número, las instruccio- 
nes que presentamos pueden utilizarse en muchas versiones de 
BASIC, 

Por último, si es un carácter normal, la subrutina será: 


1310 REM ooooonnnronnnonnnnP.- 
1320 REM -- CARACTER NORMAL -- 
1330 REM =oooooononnnnnanonmo o 


1350 REM ===. --- 


1370 REM 
1380 IF CARSC*0" OR CARS>"9" THEN GOTO 1400 
1390 GOTO 1490 

100 REM. nn 


A AS 
1430 PRINT CHR$(7); 
1440 GOTO 1060 


1460 REM -- CARACTER ALFABETICO -- 
o 


1480 IF CARS<" " OR CAR$)"2" THEN GOTO 1400 
1490 ALFAS=ALFAS+CARS 
, 1500 GOTO 1130 


La subrutina está terminada. Esta parte final se encarga de pro- 
cesar los caracteres válidos; si el carácter es numérico debe te- 
ner un valor comprendido entre 0 y 9 (ver instrucción 1380) y, de 
no ser así, deberá tener un valor comprendido entre el espacio 
y “z” (instrucción 1480). Si el carácter no está dentro de los límites 
indicados, se emitirá una señal acústica, no se imprimirá el conte- 
nido de CAR$ y se pedirá otro carácter del teclado. Si el carácter 
es válido, se transferirá a la cola de la variable ALFA$, se escribi- 
rá y se solicitará el siguiente carácter del teclado. 

La subrutina en PASCAL UCSD se encuentra en el apéndice 
y está inserta en cada programa de las estructuras que hemos vis- 
to. Como es habitual destacaremos las instrucciones más signifi- 
cativas: 


CASE sw OF 
*1*spequenos=0; 
"2 :grandes=0; 
*3”s+alfa:=0; 
END; 


Ponemos a cero las variables PEQUEÑO, GRANDE y ALFA so- 
bre la base del contenido de la variable SW. 


COTOXY (POSX, POSY ); 


Situamos el cursor en las coordenadas indicadas por las 
variables POSX y POSY. Sigue luego un bucle de instrucciones 
que se repiten hasta que se pulse la tecla RETURN (UNTIL 
EOLN(KEYBOARD)). Se actúa sobre el dispositivo KEYBOARD 
(TECLADO), que tiene la particularidad de no escribir en la pan- 
talla el carácter introducido a través del teclado o, como se dice 
técnicamente, que no hace eco, 


REPEAT 
READ(KEYBDARD, car); 
IF NOT EOLN(KEYBOARD) 
THEN BEGIN IF ORD(car)=8 THEN BEGIN 
GOTOXY(x_pos,y_pos); 
CASE sw OF 
1": BEGIN 
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pequeno:=pequeno DIV 10; 
WRITE (pequeno,? *); 
GOTOXY(x_pos, y_pos); 
WRITE (PEQUENO) 5 

END; 


Se lee un carácter del teclado y se compara, en este caso con 
wl valor 8, es decir, la tecla de retorno (se tiene que volver a es- 
oribir el campo sin el último carácter). Según que el campo sea 
del tipo integer (entero), long integer (en Pascal) o string (cade- 
na), se utilizan diferentes instrucciones. En el caso de variable en- 
lera (integer) para eliminar el último dígito se ha dividido PEQUE- 
NO por 10 y luego se escribe junto con un espacio en blanco para 
eliminar de la pantalla el carácter a borrar. El segundo WRITE sir- 
ve para posicionar adecuadamente el cursor. Continuemos la ex- 
plicación de la subrutina. 


2 BEGIN 
grande:=grande DIV 10; 
WRITE (grande,* ?); 
GOTOXY (x_pos, y_pos); 
WRITE (grande); 
END; 


En el caso de "long integer”, ejecutamos instrucciones muy si- 
milares a las empleadas para los campos “integer”, actuando so- 
bre la variable GRANDE en lugar de sobre la variable PEQUEÑO. 


"3: BEGIN ' 
DELETE (alfa, LENGTH (alfa), 1); 
WRITE (alfa,* ?); 
GOTOXY (x_pos, y_pos); 
WRITE (alfa); 
END; 
END; 
END 


En el caso de variables de tipo de cadena utilizamos el pro- 
cedimiento DELETE, que permite, en nuestro caso, borrar el últi- 
mo carácter de la cadena. La instrucción está constituida por tres 
parámetros, de los cuales el primero indica en qué cadena se quie- 
re trabajar, el segundo indica qué carácter de la cadena se quiere 
borrar y el último parámetro sirve para indicar cuántos caracteres 
deben borrarse. En nuestro caso, la función LENGTH(ALFA) resti- 
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tuye la longitud de la variable ALFA, que sirve también para in- 
dicar la posición del último carácter. 


ELSE BEGIN 
IF sw IN [*1*,>2*] 
THEN BEGIN 
IF car 1INI*0*,.*9*] 
THEN BEGIN 
IF su=*1? ” 
THEN pequeno:=pequeno410+0RD(car)-48 
ELSE grande: =grandeF10+0RD(car)-48; 
write 
END 
ELSE WRITE(CHR$(7)); 
END (¿del campo numerico) 


Estas instrucciones se refieren al caso en que lo que quere- 
mos es introducir dígitos. Primero se comprueba que el carácter 
está comprendido entre los valores O y 9; de no ser así se emite 
una señal acústica. Si el carácter es, efectivamente, un dígito se 
añadirá a la variable PEQUEÑO o a la variable GRANDE, depen- 
diendo del contenido de la variable SW y, luego, el carácter apa- 
recerá en la pantalla. 


ELSE BEGIN 
ETA, EI 
THEN BEGIN 

sti=" ?; 
still:=car; 
alfa:=CONCAT (alfa, st); 
WRITE (car); 
END 
ELSE WRITE (CHR$(7)); 

END; — (del campo alfabetico) 


Esta examina el caso de datos alfabéticos. Si el contenido de 
la variable CAR no está comprendido entre espacio y la letra “z” 
se emitirá una señal acústica y, de no ser así, se pondrá “a la cola” 
en la variable ALFA (ver función CONCAT) y el carácter apare- 
cerá en la pantalla. 


Subrutina menú 


El operador tiene la posibilidad de “elegir” la función que de- 
sea respondiendo con un valor numérico. Las instrucciones de 
BASIC se llevan a los programas GESTION del apéndice, desde la 
instrucción 800 a la instrucción 980. 


830 REM 

840 PRINT "1 --> CARGA DE DATOS" 

850 PRINT 

860 PRINT "2 --> LECTURA DE REGISTROS" 

870 PRINT 

900 PRINT "4 --> MODIFICACION DE UN REGISTRO" 

910 PRINT 

920 PRINT "5 --> BORRADO DE UN REGISTRO" 

930 PRINT 

940 PRINT "9 --> FINAL DE PROGRAMA" 

950 PRINT 

960 PRINT "?":RESPUESTAS=INPUTS (1): QUEQUIERE= 
ASC(RESPUESTAS) -ASC("0") 


La instrucción 850 tiene como objeto insertar una línea vacía 
entre una opción y otra del menú. La respuesta dada mediante el 
teclado se recoge en la variable RESPUESTAS, que luego se in- 
troduce en la variable QUEQUIERE en forma binaria. La función 
INPUT$ nos permite pulsar una tecla y volver a entrar en el pro- 
grama sin tener que pulsar la tecla RETURN 

En el apéndice reservado al Pascal se incluye el procedimien- 
to MENU introducido en el programa GESTION. Veamos las ins- 
trucciones principales: 


borrado pantalla; 

WRITELN; 

WRITELN(*1 --> CARGA DE DATOS”); 

WRITELN; 

WRITELN(*2 --> LECTURA CON EL NOMBRE DE CLIENTE”); 
WRITELN; 

WRITELN(*3 --> LECTURA CON EL NUMERO DE REGISTRO”); 
WRITELN; 

WRITELN(*4 --> MODIFICACION O ANULACION DE REGISTRO”); 
WRITELN; 

WRITELN(*5 --> PUESTA EN COLA DEL REGISTRO AL FINAL”); 
WRITELN; 


87 


WRITELN(*9 --> FIN DEL PROGRAMA”); 
WRITELN; 
READ(QUE_QUIERE) ¡WRITELN; 


La primera instrucción tiene como objeto borrar la pantalla; 
luego se visualizan las opciones del menú separadas por una lí- 
nea vacía. La respuesta dada a través del teclado se recoge en la 
variable QUE__QUIERE. Se ha hecho de tal modo que no tuviéra- 
mos necesidad de utilizar la tecla RETURN; es suficiente pulsar 
una tecla cualquiera para volver el control al programa. 


Subrutina de máscara 


Esta subrutina escribe en la pantalla los nombres de los cam- 
pos, dejando a su derecha el espacio adecuado para la respuesta; 
dicho de otro modo, se hace una "entrada guiada”. 

En BASIC la subrutina se lleva al apéndice desde la instruc- 
ción 10000 a la 10230. Comentemos algún fragmento de esta su- 
brutina para ilustrar su funcionamiento. 


10040 YPOS=4; XP0S=1 
10050 60SUB 15800: REM -->POSICIONA EL CURSOR 
10060 PRINT "CLIENTE — :" 


El cursor se posiciona de forma adecuada (línea 1, colum- 
na 4) y luego se imprime la cadena “CLIENTE :”. A continuación 
siguen otras instrucciones, similares a las arriba indicadas, para 
presentar en pantalla la solicitud de la dirección, de la ciudad, del 
teléfono y del prefijo; por supuesto, en posiciones diferentes. 

En el lenguaje PASCAL, el procedimiento se lleva al apéndi- 
ce reservado al Pascal con el nombre MASCARA. 


5OTOXY 10,4); 
WRITE(C cliente ds 


GOTOXY posiciona el cursor en la primera columna de la lí- 
nea 5 y WRITE escribe el encabezamiento del campo del cliente. 
Siguen luego otras instrucciones, similares a las dos arriba indica- 
das, para describir los otros campos del registro. 


Subrutina de visualización 


En BASIC la subrutina ocupa las instrucciones 11000/11260 y 
se lleva integramente al apéndice para cada estructura. 
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11040 YFOS=4;XPO5=13 
11050 GOSUB 15800:REM -->POSICIONA EL CURSOR 
11060 PRINT CL%; 


El cursor se posiciona en la columna 13 de la línea 4, en don- 
de se imprime el nombre del cliente. Se procede de forma análo- 
ga para los otros campos del registro. 

En PASCAL, el procedimiento VISUALIZACIÓN se lleva al 
apéndice reservado al Pascal. Comentamos solamente algunas 
instrucciones: 


60TOXY (13,4); 
WRITE (cliente”.cliente); 


El cursor se posiciona en la columna 14 de la línea 5, en don- 
de se imprime el nombre del cliente. Se procede de forma análo- 
ga para los otros campos del registro. 


Subrutina de carga 


Para el BASIC la subrutina se lleva al apéndice en los progra- 
mas GESTION, a partir de la instrucción 2000 y hasta la instrucción 
2740. Procedemos a comentar las instrucciones principales, recor- 
dando que los comentarios se refieren a la gestión HASH; durante 
el comentario de las otras estructuras indicaremos las ocasionales 
diferencias. 


2040 6OSUB 500:REM -->BORRADO DE PANTALLA 
2050 PRINT "LA CARGA PARTE CON EL NUMERO: "; 
ACTUAL%-1 


Después de haber borrado la pantalla se visualiza el número 
del primer registro a grabar. 


2060 1F ACTUAL%<3 THEN GOTO 2140 
2070 NUMEROZ=ACTUALZ-1 
2080 FIELD 1,31 AS CL$,33 AS 1N$,15 AS CIS, 
4 AS TES,4 AS PRS,1 AS TIS 
2090 GOSUB 15000:REM -->LECTURA DE CLIENTE 
2100 PRINT "EL REGISTRO ESCRITO ES El SIGUIENTE: " 
2110 GOSUB 10000: REM -->MASCARA 
2120 6OSUB 11000:REM -->VISUALIZACION 
2130 PRINT 
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2140 INPUT "PULSE <RETURN> PARA INICIAR LA CARGA"; RESPUESTAS 


En el caso de que no se hubiera escrito todavía el primer re- 
gistro, el control se pasará a la instrucción 2140. De no ser así 
(cuando ya se inició la carga) se leerá el último registro grabado 
y se le visualizará en la pantalla, por lo que se podrá comprobar 
la posición exacta de la carga. Se entra luego en un bucle de ins- 
trucciones en donde se piden los datos del cliente: dicho bucle 
termina cuando se responde con “zzzz” a la solicitud del nombre 
del cliente. ». 


2150 REM 

2155 FIELD 1,31 AS CL$,33 AS IN$,15 AS CIS, 
4 AS TES,4 AS PR$,1 AS TIS 

2160 GOSUB 500:REM ---->BORRADO DE PANTALLA 

2170 YP05=20: XP0S=1 

2180 GOSUB 15800:REM -->POSICIONA EL CURSOR 

2190 PRINT "PARA ACABAR LA CARGA,A LA SOLICITUD 
NOMBRE DEL CLIENTE TECLEE ”2222*" 

2200 GOSUB 10000:REM -->MASCARA 

2210 XPOS=13: YP05=4 

2220 SW=3 

2230 G60SUB 1000:REM --->TECLADO 

2240 NOMINATIVOS=ALFAS 

2250 IF NOMINATIVOS="22z2" THEN RETURN 


El cursor se posiciona en la columna 13 de la línea 4 y luego 
se cede el control a la subrutina TECLADO. El valor restituido se 
almacena en la variable NOMINATIVOS en el caso de que se in- 
troduzca “zzzz”. En caso contrario: 


2260 1F ACTUALZ>ULTIMOZ THEN INPUT "NO PUEDE 
CONTINUAR.SE HA SUPERADO LA DIMENSION DEL FICHERO 


Lo anterior sirve para cerciorarse de no haber superado las 
dimensiones del fichero, 


2270 GOSUB 12000:REM --->CALCULO 

2280 60SUB 13000:REM --->BUSQUEDA 

2290 1F FIN=1 G0TO 2320 

2230 INPUT "ESTE CLIENTE YA EXISTE. NO PUEDO 
INTRODUCIRLO. PULSE <RETURN>"; RESPUESTAS 

2310 RETURN 


La subrutina BUSQUEDA realiza la búsqueda en el fichero 
GLIENTES del nombre correspondiente y pone a 1 la variable FIN 
al dicho nombre está introducido ya en el fichero, en cuyo caso 
lp rechazaremos. 


2320 CLIENTES=NOMINATIVOS 

2330 SH=3 

2340 XPOS=13 

2350 YPO5=6 

2360 GOSUB 1000:REM --->TECLADO 
2370 DIRECCIONS=ALFAS 


A través del teclado se introducen los datos correspondien- 
les al campo de la dirección. Luego se solicitan de forma análoga 
las informaciones relativas a los otros campos, 


2540 GO0SUB 15200:REM --->LECTURA HASH 
2550 COLISIONA=CV1(HASHS) 


Se lee el registro actual del fichero de índice y el valor del 
único campo se almacena en la variable COLISION%. 


2560 LSET HASH$=MK1$ (ACTUAL) 
2570 GOSUB 15700:REM ---> ESCRITURA HASH 


Se escribe el registro de índice después de haberlo actuali- 
zado con el contenido de la variable ACTUAL%. 


2580 FIELD 1,31 AS CLS, 33 AS INS,15 AS CIS, 
4 AS TES, 4 AS PRS,1 AS TIS, 2 AS COS 
2590 LSET CL$=CLIENTES 


Ahora actualizamos el fichero de clientes; con la última ins- 
trucción se transfiere el contenido de la variable CLIENTES a la 
variable CL$ destaquemos el hecho de que ha de utilizarse la ins- 
trucción LSET. 

A continuación se dan otras instrucciones análogas para com- 
pletar los demás campos del registro. 


2650 LSET COS=MKIS(COLISIONZ) 

2660 NUMERO%=ACTUALA 

2670 GOSUB 15500:REM -->ESCRITURA CLIENTE 
2680 ACTUAL A=ACTUALA+1 
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Damos ahora las instrucciones correspondientes a la escritu= 
ra del registro de los clientes y a la actualización del “cuenta re- 
gistros”, 


2690 FIELD 1,2 AS ACTUAL$,2 AS ULTIMOS 
2700 LSET ACTUAL$=MKI$ (ACTUALZ) 

2710 LSET ULTIMOS=MKIS(ULTIMOX) 

2720 NUMERO%=1 

2730 60SUB 15500:REM -->ESCRITURA CLIENTE/1 
2740 G0TO 2150 E 


Se vuelve a escribir, actualizado, el primer registro del fiche- 
ro de clientes para recordar el siguiente registro a grabar y el to- 
tal de los registros del fichero. A continuación, el control se pasa 
a la instrucción 2150, en donde se solicitan otros datos del teclado. 

El procedimiento CARGA se lleva al apéndice de Pascal y se 
incluye en los programas GESTION. Pasamos a comentar las ins- 
trucciones principales. 


borrado_pantalla; 
WRITELN(*LA CARGA PARTE CON EL NUMERO? ,actual-1); 


Después de haber borrado la pantalla, se visualiza el número 
del primer registro .a grabar. 


IF actual>2 
THEN BEGIN 
SEEK(cliente,PRED(actual)) ; 
GET (cliente); 
WRITELN(*EL REGISTRO ANTERIOR”, 
"ESCRITO ES EL SIGUIENTE?) 
mascara; 
visualizacion; 
WRITELN; 
GOTOXY (0,20); 
WRITE (* PULSE <RETURN> PARA CONTINUAR”); 
END; 


En el caso de que se esté en fase avanzada de carga se lee 
el último registro grabado y se le visualiza en la pantalla, de modo 
que se pueda comprobar la posición. 


REPEAT 
borrado_pantalla; 
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50TOXY (0,20); 
VRITELN(” PARA TERMINAR RESPONDA "zz22"”, 
*A LA SOLICITUD DEL NOMBRE DEL CLIENTE”); 
mascara; 
sus= "3"; 
x_pos:=13; 
y_pos:=4; 
teclado; 
nominativo:=alfa; 
IF nominativot)*z222* 
THEN BEGIN 
IF actual dultimo 
THEN BEGIN 
WRITE (*NO PUEDO CONTINUAR,SE HA SUPERADO”, 
"LA DIMENSION MAXIMA. PULSE<RETURN>*); 
READLN; 
EXIT(carga); 
END; 


Mediante REPEAT se inicia un bucle de instrucciones que se 
terminará cuando la variable NOMINATIVO contenga el valor 
12277”. El cursor se sitúa en la columna 31 de la línea 4 y luego el 
control se cede al procedimiento TECLADO. El valor restituido se 
almacena en la variable NOMINATIVO, 

Si no hemos terminado la carga comprobamos que no hemos 
superado las dimensiones previstas del fichero, en cuyo caso obli- 
gamos a la salida de la subrutina mediante la instrucción EXIT. 


calculo; 

busqueda; 

IF NOT fin 

THEN BEGIN 
WRITE(* ESTE CLIENTE YA EXISTE, NO PUEDO”, 
"INCLUIRLO. PULSE <RETURN>”); 

READLN; 
EXIT (carga); 

END; 


El procedimiento BUSQUEDA realiza la búsqueda del nombre 
correspondiente en el fichero de clientes y en el caso de que lo- 
encuentre pone a 1 (VERDADERO) la variable booleana FIN. Re- 
chazaremos la introducción de claves que existan ya en el fichero. 
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clientez=nominativo; 
x_pos:=13; 

y_pos:=b6 

teclado; 
direccion:=alfa; 


A través del procedimiento TECLADO se introducen los da- 
tos correspondientes al campo de dirección. Luego se solicitan, 
de forma análoga, los otros campos. 


SEEK (indice, hash); 
bETlindice) 
colision:=indice* 


Se lee el registro actual del fichero de índice y el valor del 
único campo se almacena en la variable COLISION. 


indice*:=actualj 
SEEK(indice,hash); 
PUT (indice); 


Se escribe el registro de índice después de haberlo actuali- 
zado con el contenido de la variable ACTUAL. 


SEEK(cliente,actual); 
PUT (cliente); 
actual:=succ(actual); 


Ahora actualizamos el fichero de clientes y luego hacemos lo 
mismo con el “cuenta-registros”. 


primero:=actual; 
ñaximo:=ultimo; 
SEEK (cliente, 1); 
PUT (CLIENTE); 


Se actualiza y vuelve a escribir el registro 1 del fichero de 
clientes para recordar el siguiente registro a grabar y el total de 
los registros existentes en el fichero, ¿ 


END; £DE LA WITH CLIENTE”) 
END; (51 CLIENTE? 
UNTIL nominativo=*2222* 
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El bucle se repetirá a no ser que a la solicitud del nombre del 
cliente se responda con “zzzz”, en cuyo caso se sale del bucle y 
del procedimiento. : 


Subrutina de lectura 


Permite leer los registros y visualizarlos en la pantalla; solici- 
la el número del primero y del último registro. La subrutina LISTA 
tiene el objeto de buscar el enésimo registro, siempre que se haya 
grabado; si el registro no existe, se activará la variable FIN. Se sale 
de la subrutina pulsando la tecla <ESCAPE> cuando se ha visua- 
lizado el último registro. 

La subrutina se lleva al apéndice en los programas GESTION 
y ocupa las instrucciones 4000 a 4330. Veamos las instrucciones 
principales. : 


4040 YPOS=20:XPOS=1 
4050 SOSUB 15800:REM -->POSICIONA EL CURSOR 
4060 PRINT "NUMERO DEL PRIMER REGISTRO: ” 


Después de haber posicionado el cursor se pide el número 
del primer registro a visualizar, dicho número se incrementa en 1 
y se almacena en la variable INICIO%. De forma análoga se pide 
el número del último registro a grabar y este valor, incrementado 
en 1, se almacena en la variable ALT%. 


4210 GOSUB 11700:REM --+POSICIONA 
4220 IF FINE=1 THEN RETURN 


El control se pasa a la subrutina LISTA, que se encarga de bus- 
car el primer registro; si no lo encuentra activará la variable FIN 
y se saldrá de la subrutina. De no ser así: 


4240 GOSUB S00:REM ---->BORRADO DE PANTALLA 
4250 GOSUB 10000sREM -->MASCARA 
4260 GOSUB 11000:REM --+VISUALIZACION 


El registro se visualiza en la pantalla. Siguen instrucciones que 
permiten observar con comodidad la pantalla y luego suspender 
el examen de los demás registros o visualizarlos. 

El procedimiento LECTURA se lleva a los programas GESTION 
del AocuiES de Pascal. Comentemos ahora las instrucciones prin- 
cipales: 
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PROCEDURE lectura 

BEGIN 

6OTOXY (0,20); 

WRITE (NUMERO DEL PRIMER REGISTRO: —”); 
x_pos:=32; 

y_pos:=20; 

smi=*1?; 

teclado; 

inicio:=pequeno+l; . 


A través del teclado se solicita el número del primer registro 


a imprimir y dicho valor, incrementado en 1, se almacena en la va- 
nable INICIO. De forma análoga, se pide el número del último re- 
gistro a visualizar y dicho valor, incrementado en 1, se almacena 
en la variable STOP. 


lista; 
1F NOT fin 
THEN REPEAT 


El control se pasa al procedimiento LISTA, que, si no se en- 


cuentra el registro, pone a 1 (VERDADERO) la variable booleana 
FIN. Si se encuentra el registro: 


borrado_pantalla; 

mascara; 

visualizacion; 

GOTOXY (0,20); 

lista; 

WRITE(*<ESPACIO?) PARA CONTINUAR, ”, 
*<ESC> PARA ACABAR”); 

READ (respuesta); 


Se visualiza el registro, se lee el registro siguiente y se da la 


posibilidad al operador de observar los datos en la pantalla y pro- 
seguir luego con la visión de los demás registros. 
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UNTIL (respuesta=CHR$(27)) OR (iniciodalt+1) OR (fin); 
La visualización de los registros termina: 
e cuando el operador pulsa la tecla <ESCAPE> 


* cuando se ha visualizado el último registro solicitado; 
e cuando se acaban los registros existentes en el fichero. 


Subrutina de modificación 


La subrutina de BASIC se lleva a los programas GESTION del 
apéndice BASIC, desde la instrucción 8000 a la instrucción 8760. 
Comentamos las instrucciones principales, recordando que los co- 
mentarios se refieren a la gestión HASH; durante el examen de las 
otras estructuras, indicaremos las ocasionales diferencias. 


8070 FRINT "NUMERO DE REGISTRO:" 

8080 5H=1 

2090 XFOS=23:YP05=20 

8100 GOSUB 1000: REM --->TECLADO 

8110 INICION=PEQUEROA + 

8120 60SUB 11700:REM --+POSICIONA 

B130 IF FIN=0 THEN 5070 8210 

8170 YPOS=20:XP05=1 

8180 SOSUB 15800+REM -->POSICIONA EL CURSOR 

8190 INPUT "NO EXISTE ESTE REGISTRO, PULSE 
<RETURN>"5 RESPUESTAS 

8200 RETURN 


Se pide el nombre del cliente a través del teclado y la subru- 
tina de cálculo determina el número Hash, mientras que la subru- 
tina de búsqueda encuentra el registro. En el caso de que el nom- 
bre no se encuentre, se emitirá una señal acústica; si se encuentra: 


8220 G0SUB 10000:REM --> MASCARA 

8230 60SUB 11000:REM -->VISUALTZACION 

8240 YP0S=20:XP05=1 

8250 G0SUB 15800:REM -->POSICIONA EL CURSOR 

8250 PRINT "PULSE <ESC> PARA MODIFICAR EL CAMPO 
0 <RETURN> PARA CONTINUAR" 


El registro se visualiza en la pantalla y el cursor se posiciona 
al comienzo de cada campo individual. El operador puede hacer 
dos cosas: 


e pulsar la tecla RETURN: el cursor se situará en el campo si- 
guiente; 

e pulsar la tecla ESCAPE: entonces será posible volver a es- 
cribir el campo en donde se encuentra el cursor. 


! 


Las instrucciones principales relativas a la modificación del 
campo de dirección son: 
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8273 YPOS=6:1POS=11 

8280 G0SUB 15800:REM -->POSICIONA EL CURSOR 
8290 50SUB 15900:REM -->LECTURA CARACTER 
8300 IF ASCICAR$)<>27 THEN GOTO 8380 

8310 YPOS=5:P05=13 

8320 G0SUB 15800:REM -->POSICIONA EL CURSCR 
8330 PRINT * 

8340 SW=3 

8350 XPOS=13:YPOS=b 

8360 GOSUB 1000:REM --->TECLADO 

8370 LSET IN$=ALFAS 


Las instrucciones correspondientes a los otros campos son 
muy similares, aunque, por supuesto, se cambia el posicionamien- 
_ to del cursor. Al final, la subrutina sigue con: 


8750 GOSUB 15500:REM -->ESCRITURA CLIENTE 
8760 RETURN 


En el apéndice de Pascal hemos llevado el procedimiento 
MODIFICACION al programa GESTION. Veamos las instrucciones 
principales: 


WRITE ("NUMERO DEL REGISTRO:”); 
sa*1?; 

x_pos:=18; 

y_pos:=20; 

teclado; 

inicio:=pequeno+l; 
J:=pequeno+1; 

lista; 

IF NOT fin 

THEN BEGIN 


Se pide el registro a través del teclado Si no se encuentra se 
emitirá una señal acústica, si se localiza: 


Mascara; 

visualizacion; 

GOTOXY (0,20); 

WRITE(*<ESC> PARA MODIFICAR,”, 
><RETURN> PARA CONTINUAR”); 
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El registro se visualiza en la pantalla, el cursor se posiciona 
al comienzo de cada campo individual y el operador puede ha- 
ver dos cosas: 


e pulsar la tecla RETURN: el cursor se posicionará sobre el 
campo siguiente; 

e pulsar la tecla ESCAPE: entonces será posible volver a es- 
cribir el campo en donde está situado el cursor. 


Veamos las instrucciones principales para la modificación del 
campo de dirección: 


GOTOXY (13,6); 
READ (respuesta); 
1F respuesta=CHR$(27) 
THEN BEGIN 
60T0XY (13,6); 
WRITE(? 20 
su=*3%; 
x_pos:=13; 
y_pos:=b; 
teclado; 
cliente*.direccion:=alfa; 


Las instrucciones correspondientes a los otros campos son si- 
milares a las anteriores y cambiará el posicionamiento del cursor. 
Al final del procedimiento sigue: 


SEEK (cliente, J); 
PUT (cliente); 


Subrutina de borrado 


Llevamos la subrutina a los programas CESTION en el apén- 
dice del BASIC (instrucciones 9000/9280). Comentaremos sola- 
mente las instrucciones principales, recordando que los comen- 
tarios se refiren a la gestion HASH y que durante el comentario 
de las otras estructuras indicaremos las eventuales diferencias. 


9070 SW=1:XP0S=23:YPOS=20 

9080 G0SUB 1000:REM --->TECLADO 
9090 INICIO*=PEQUEROZ+1 

9110 605UB 11700: REM --2TECLADO * 
9120 1F FIN=1 THEN GOTO 9250 
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Solicita el nombre del cliente a borrar, luego el control se pasa 
a la subrutina CALCULO para la determinación del número Hash 
y, finalmente, a la subrutina BUSQUEDA para encontrar el registro. 
En el caso de que no se encuentre el nombre se activará la va- 
riable FIN y se indicará dicha circunstancia en la pantalla. Si se lo- 
caliza: 


9130 GOSUB 10000:REM -->MASCARA 

9140 GOSUB 11000:REM -->VISUALIZACIO 

9150 YPOS=20: XPDS=1 í 

2160 GOSUR 15800:REM -->POSICIONA EL CURSOR 
9170 PRINT "¿QUIERE BORRARLO?(S/N)"; 

9180 GOSUB 15900:REM -->LECTURA CARACTER 


El registro se visualiza en la pantalla y luego, habida cuenta 
del peligro de la operación, se pide la confirmación del borrado. 


9190 IF CAR$="5" OR CAR$="5" THEN GOTO 9210 
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Si no se responde de forma afirmativa (con "S” o “s”) se sale 
de la subrutina sin borrar el registro; en otro caso: 


9220 LSET TI$="C" 
9230 60SUB 15500: REM -->ESCRITURA CLIENTE 
9240 RETURN 


El campo timpo se modifica en C y luego se graba el registro. 

En el apéndice de Pascal y en los programas GESTION se lle- 
va el procedimiento BORRADO del que comentamos las instruc- 
ciones siguientes: 


WRITE ("NUMERO DEL REGISTRO: ?); 
suj="1*; 

x_pos:=18; 

y_pos:=20; 

teclado; 

inicios=pequeno+l; 

J:=pequeno+l; 

lista; 

IF NOT fin 

THEN BEGIN 


Se pide el nombre del registro a borrar. En el caso de que no 
se encuentre la variable booleana FIN se pone a 1 (VERDADERO) 
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de modo que se pueda indicar dicha circunstancia en la pantalla. 
En caso contrario: 


hascara; 

visualizacion; 

60TOXY (0,20); 

WRITE(' ¿QUIERE BORRARLO? (5/N)*); 
READ (respuesta); 


El registro se visualiza en la pantalla y luego, dada la delica- 
deza de la operación, se solicita la confirmación correspondiente. 


IF respuesta INI?S*,?s*] 

THEN BEGIN 
cliente*.tipo:="C*; 
SEEK (cliente, 3); 
PUT (cliente); 

END; 


Se modifica el campo tipo y luego se graba el registro. 


FICHEROS SECUENCIALES 


Sabemos que los ficheros secuenciales nos permiten el acce- 
so a un registro a condición de que se hayan procesado los even- 
tuales registros anteriores. Además no siempre es posible añadir 
otros registros a un fichero que se haya cerrado con anterioridad. 
Algunas versiones de BASIC han previsto una opción particular 
en la apertura del fichero (la opción APPEND) que tiene, precisa- 
mente, el objeto de añadir nuevos registros “a la cola”. El PASCAL 
UCSD no prevé dicha técnica. 

Los programas se han elaborado de modo que sigan lo más 
posible las reglas de la programación estructurada. Ello fue fácil 
para el Pascal y un poco más difícil con el BASIC, aunque hemos 
utilizado las instrucciones REM. Nos vimos obligados a utilizar un 
Pascal muy simple para poderlo transformar “de igual a igual” en 
BASIC; dicho de otro modo: no hemos pasado parámetros al cie- 
rre de los procedimientos. : 

Hemos empleado registros estructurados de la forma sigui- 
ente: 


CLIENTE campo alfabético de 31 caracteres 
DIRECCION campo alfabético de 33 caracteres 
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CIUDAD campo alfabético de 15 caracteres 
TELEFONO campo numérico de 8 caracteres 
PREFIJO campo alfabético de 4 caracteres 


Programa SEC__GESTION 


El programa está subdividido en numerosas subrutinas y el 
cuerpo está reducido a lo más fundanental; se presenta un menú 
y basánd en la respuesta dada se elige una de las cinco fun- 
ciones básicas: carga de datos, lectura de datos, modificación/bo- 
rrado de datos y adición de registros “a la cola”. 

En BASIC el programa se lleva al apéndice con el nombre de 
SEC__GESTION y ocupa las instrucciones 220 a 290. 


220 BOSUB 500:REM -->BORRADO DE PANTALLA 
230 GOSUB 800:REM -->MENU 

240 ON QUEQUIERE GOSUB 2000,4000,4000, 8000, 9000 
250 1F QUEQUIERE<>9 THEN GOTO 220 

290 END 


Las dos primeras instrucciones tienen su propia explicación, 
porque hemos utilizado instrucciones REM. La instrucción 240 
cede el control a la instrucción 2000, si la variable QUEQUIERE 
contiene el valor 1; a la instrucción 4000, si la variable QUEQUIE- 
RE contiene el valor 2, y así sucesivamente. Si la variable QUE- 
QUIERE contiene valores superiores al 5, el control pasará a la ins- 
trucción 220 si este valor es diferente de 9 y, de no ser así, el pro- 
grama se cerrará. 

Las instrucciones de Pascal relativas al programa se llevan al 
apéndice en el programa SEC__GESTION y, como es habitual, co- 
mentamos algunas instrucciones: 


BEGIN 
menu; 
CASE que_quiere OF 
eE carga; 
Zas noabre; 
y lectura; j 
ds modificacion; 
"5%: puesta_en fila; 
END; 
END. 
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Nos parece que está bastante claro, ¿no? 

Veamos ahora las diversas subrutinas siguiendo una cierta ló- 
gica, que es la de examinar antes las relativas a la carga de los 
datos, después las de lectura, luego las de modificación y borra- 
do y finalmente las de "puesta a la cola". 


Subrutina de lectura 


Permite leer los registros a partir del enésimo y hasta otro re- 
gistro determinado. 

En BASIC la subrutina se lleva al apéndice en el programa 
SEC__GESTION, desde la instrucción 4000 a la instrucción .4370. 
Como es habitual, comentamos las instrucciones más importantes. 


4035 OPEN "1",41, "CLIENTES. DAT" 


Con dicha instrucción se abre, solamente como entrada, el fi- 
chero CLIENTES.DAT. 


4050 PRINT "NUMERO DEL PRIMER REGISTRO: " 
4070 SW=1 

4080 XPO5=32 

4090 YPOS=20 

4100 GOSUB 1000: REM -->TECLADO 

3110 INICIOA=PEQUEÑOA+1 


Se solicita el número del primer registro a imprimir y dicho 
valor se almacena en la variable INICIO%. Más adelante, en las ins- 
trucciones 4120/4190, se solicita el número del último registro a 
imprimir y dicho valor se almacena en la variable ALT%. 


4210 GOSUB 11700:REM ->POSICIONA 
4220 1F FIN=1 THEN THEN GOTO 4340 


La subrutina POSICIONA busca el primer registro a imprimir 
y, en el caso de que no se encuentre, activará la variable FIN y 
sale de la subrutina. De no ser así: 


4240 GOSUB 500:REM --->BORRADO DE PANTALLA 
4250 GOSUB 10000:REM ->MASCARA 

4260 GOSUB 11000:REM ->VISUALIZACION 

4270 YPDS=20:XPOS=1 e 

4280 GOSUB 15800:REM -->POSICIONA EL CURSOR 
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4290 GOSUB 11500:REM -->LISTA 

4300 PRINT "<ESPACIO> PARA SEGUIR,<ESC> PARA 
TERMINAR” 

4310 RESPUESTAS=INPUTS (1) 


En la pantalla se visualiza todo el registro y en la última línea 
se escribe un mensaje y se espera la respuesta. De este modo se 
tiene la posibilidad de observar la pantalla y luego decidir si de- 
sea ver los siguientes registros o terminar, si pulsa la barra espa- 
ciadora se visualizarán los registros sucesivos (si existen) y si se 
pulsa la tecla <ESCAPE> se suspende la visualización de los re- 
gistros. 


4320 1F ASC(RESPUESTA)=27 OR FIN=1 OR INICIOZ> 
ALTA+1 THEN GOTO 4340 
4330 60T0 4230 


La impresión de los registros queda suspendida en los casos 
siguientes: 


e si el operador ha pulsado la tecla ESCAPE, 

e sino hay otros registros en el fichero (EOF ), 

e si se ha realizado la visualización del último registro indi- 
cado por el operador. 


En otro caso se prosigue la visualización de los demás regis- 
tros, cediendo el control a la instrucción 4240. 

El procedimiento LECTURA se lleva al avéndice reservado al 
Pascal, en el programa SEC__GESTION. Comentamos las instruc- 
ciones principales: 


WRITE (NUMERO DEL PRIMER REGISTRO: — ”); 
sui=?1?; 

x_pos:=32; 

y_pos:=20; 

teclado; 

inicio:=pequeno; 


Se solicita el número del primer registro a visualizar: el valor 
correspondiente se almacena en la variable INICIO. A continua- 
ción se solicita el número del último registsre a imprimir, cuyo va- 
lor se almacena en la variable ALT. 


posiciona; 
IF NOT fin 
THEN REPEAT 
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borrado_pantalla; 
ñascara; 
visualizacion; 
50TOXY (0,20); 
GET(cliente); 
inicios=inicio+l; 
WRITE (* «ESPACIO? PARA SEGUIR,”, 
"ESC? PARA TERMINAR”); 

READ (respuesta); 
UNTIL (respuesta=CHR$(27)) 

OR (iniciodalt) 

OR (E0F(cliente)); 


La subrutina POSICIONA busca el primer registro a visualizar; 
si dicho registro no existe se activará la variable booleana FIN y 
se sale de la subrutina. De no ser así, el registro se visualizará en 
la pantalla. Se imprime un mensaje y se espera la respuesta para 
dar la posibilidad al operador de observar a su voluntad y luego 
decidir si seguir con la visualización de los demás registros (pul- 
sa la barra espaciadora) o si interrumpir la subrutina (pulsa la te- 
cla de escape). La visualización de los demás registros se suspen- 
derá en el caso de que: 


e el operador haya pulsado la tecla <ESCAPE>, 

e no haya otros registros en el fichero (EOP), 

e se haya visualizado el último registro indicado por el ope- 
rador. 


so 


Subrutina POSICIONA 


Esta subrutina lee registros, a partir del primero, hasta que en- 
cuentra el deseado. En el caso de que no encuentre el registro 
dará la indicación oportuna a través de la variable FIN. 

En el apéndice de BASIC, la subrutina está incluida en el pro- 
grama SEC__GESTION, desde la instrucción 11700 a la instrucción 
11850. 


11750 NUMERO%=NUMEROZ+1 

11760 IF NUMEROY>INICIO% THEN 11830 
11770 G0SUB 15000:REM -->LECTURA CLIENTE 
11780 1F EOF(1) THEN GOTO 11830 - 

11790 1F NUMERO%=INICIOZ THEN GOTO 11810 
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11800 60T0 11740 
11810 FIN=0 
11820 RETURN 
11830 FIN=1 


Se llama a la subrutina de lectura del cliente hasta que: 


e se haya encontrado el registro correspondiente; 

e se haya llegado al final del fichero, en cuyo caso se pone 
la variable FIN a 1; ÉS 

e NUMERO% sea superior a INICIO%, en cuyo caso se pone 
la variable FIN a 1. 


En Pascal, el procedimiento se lleva al apéndice en el pro- 
grama SEC__GESTION. 


2:=0; 
REPEAT 
x5=x+13 
IF x<inicio then GET (cliente); 
UNTIL (x=inicio) 
OR EOF (cliente); 
tin:=E0F (cliente); 


Se seguirán leyendo los registros del fichero de clientes has- 
ta que el valor de X corresponda al valor de INICIO o bien se haya 
llegado al final del fichero. 


Subrutina de carga 


Para el BASIC la subrutina se lleva al apéndice a partir de la 
instrucción 2000 y hasta la instrucción 2720. Procedamos a comen- 
tar las instrucciones principales: 


2040 OPEN "0",1, "CLIENTES. DAT” 


Hemos abierto el fichero; luego introduciremos los datos de 
nuestros clientes. También en el caso de la carga de datos ten- 
dremos que llegar a su final. Hemos estabiecido que al introducir 
desde el teclado el valor “zzzz” se pretende acabar la carga, con- 
siderando como muy improbable que haya un cliente con dicho 
apellido, 
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2060 GOSUB 13500:REM -->INTRODUCCION DATOS 
2070 1F NOMENATIVOS="2222" THEN 6070 2700 
2590 CL$=CLIENTES 

2600 IN$=DIRECCION$ 

2610 CI$=CIUDADS 

2620 TES=ALFAS 

2630 PR$=PREFIJOS 

2670 GOSUB 15500: REM -->ESCRITURA CLIENTE 
2680 GOTO 2050 

2700 CLOSE 1 

2710 RETURN 


Las subrutinas llamadas en las instrucciones 2680 y 2670 se co- 
mentarán a continuacaión y el comentario se adjuntará con la in- 
dicación de para qué sirven. Desde la instrucción 2590 a la ins- 
trucción 2630, según puede observarse en el apéndice, los valo- 
res introducidos a través del teclado se transfieren a los campos 
del registro. Si a la solicitud del nombre del cliente se responde 
con “zzzz", el control se cede a la instrucción 2700, en donde se 
cierra el fichero y luego se entra de nuevo en la instrucción que 
efectúa la llamada. 

En Pascal utilizaremos el procedimiento CARGA, que se lleva 
al apéndice precisamente en el programa SEC__GESTION. Dicho 
procedimiento es muy sencilli, pero, no obstante, comentaremos 
algunas instrucciones. 


REWRITE (cliente, *cliente.dat”); 

REPEAT 

solicitudes; t 
IF nominativo<>'z222* THEN PUT(cliente); 

UNTIL nominativo="2222*; 


Tenga presente que el control se cede al procedimiento SO- 
LICITUDÉS, que se encarga de requerir información a través del 
teclado: la subrutina correspondiente se comentará más adelante. 
Si a la solicitud del nombre del cliente se responde con “zzz” se 
saldrá de la subrutina CARGA y se cierra el fichero; de no ser así 
se grabará el registro y se volverán a pedir datos. 


Subrutina SOLICITUDES 


Esta subrutina borra la pantalla, presenta la máscara de soli- * 
citud de datos (en la práctica, los nombres de los campos) y pide 
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los datos correspondientes al nombre, a la dirección, a la ciudad, 
al número de teléfono y al prefijo correspondiente. Hace uso de 
la subrutina TECLADO, ya comentada, para comprobar tanto los 
datos alfabéticos como los numéricos. 

La subrutina BASIC se lleva al apéndice desde la línea 13500 
a la 13870 del programa SEC__GESTION. Como es nuestra costum- 
bre, comentaremos las instrucciones principales: 


13550 G0SUB 500 ---->BORRADO DE PANTALLA 

13560 YP0S=20: XPOS=1 

13570 60SUB 13800:REM -->POSICIONA EL CURSOR 

13580 PRINT "PARA TERMINAR,A LA SOLICITUD DEL 
NOMBRE DEL CLIENTE RESPONDA *2222*" 

3590 GOSUB 10000:REM -->MASCARA 

13600 XP0S=13:YP05=4 

13610 SN=3 

13620 GOSUB 1000: REM --->TECLADO 

13630 NOMINATIVOS=ALFAS 

13640 IF NOMINATIVOS="222z" THEN RETURN 

13650 CLIENTES=NOMINATIVOS 


Borramos la pantalla y posicionamos adecuadamente el cur- 
sor, de modo que la subrutina MASCARA visualice en la pantalla 
la explicación de lo que debe introducirse a través del teclado. 
La instrucción 13620 cede el control a la subrutina TECLADO y 
puesto que hemos establecido en tres el valor de la variable SW 
se deberán suministrar datos alfabéticos. Solamente después de 
haber pulsado RETURN se produce el reenvío de la subrutina del 
teclado y se ejecuta la instrucción 13630; posteriormente se com- 
prueba si se ha introducido el valor “zzzz”, en cuyo caso se termi- 
na la carga; en caso contrario, el contenido de la variable ALFA$ 
se transfiere a la variable CLIEN 


13660 SW=3 

13670 XPOS=13 

13680 YPOS=6 

13690 GOSUB 1000:REM --->TECLADO 
13700 DIRECCIONS=ALFAS 


Con estas instrucciones hemos introducido desde el teclado 
la dirección del cliente. A continuación hay otras instrucciones, 
muy similares a éstas, para introducir los otros campos del registro. 

En Pascal el procedimiento SOLICITUDES se introduce en el 
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programa SEC__GESTION que se lleva al apéndice. Procedamos 
1 comentar algunas instrucciones: 


URITELN(? PARA FINALIZAR LA CARGA, RESPONDA”, 
92222" A LA PETICION DE CLIENTE*); 

ñascara; 

x_pos:=13; 

y_pos:=4; 

sm= 3"; 

teclado; 

nominativo:=alfa; 

IF nominativo<>'2z22* 

THEN BEGIN 

WITH cliente? 

DO BEGIN 

cliente:=noainativo; 


De modo similar se solicitan la dirección, la ciudad, el teléfo- 
no y el prefijo. 


Subrutina LISTA 


Sigue la lectura del registro y, en el caso de que se verifique 
el final del fichero, pone a 1 la variable FIN. 

La subrutina BÁSIC está contenida en el apéndice en el pro- 
grama SEC__GESTION desde la instrucción 11500 a la instrucción 
11620. 

En PASCAL no se activa ningún procedimiento porque lás ins- 
trucciones están comprendidas ya en el procedimiento LECTURA. 


Subrutina NOMBRE 


Muestra el contenido de los registros a partir de un nombre 
de cliente hasta otro nombre de cliente, indicados ambos por el 
usuario. Después de la visualización del registro siempre será po- 
sible renunciar a la visualización de los sucesivos registros con la 
pulsación de la tecla <ESCAPE>. 

En BASIC, la subrutina está contenida en el apéndice en el 
programa SEC__GESTION, instrucciones 6000/ 6410. Como es 
nuestra costumbre, comentamos las instrucciones principales: 


6040 OPEN *i",l, "clientes. dat" 
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El fichero CLIENTES.DAT se abre en entrada, es decir en Input. 


5090 PRINT "NOMBRE DEL PRIMER CLIENTE: " 
5100 SH=3 

6110 XPOS=32 

6120 YPOS=20 

6130 GOSUB 1000:REM ---+TECLADO 

6140 POSICIONS=ALFAS 


Se solicita el nombre del primer cliente a imprimir, que se al- 
macena en la variable PARTIDAS De manera similar se solicita el 
nombre del último cliente a imprimir y dicho nombre se almace- 
na en la variable TERMINO$ 


5240 GOSUB 13000:REM -->CLAVE 
6250 IF FIN=1 THEN GOTO 6380 


La subrutina CLAVE, que se comentará dentro de poco, tiene 
el cometido de buscar el nombre del primer cliente; si no lo en- 
cuentra, activará la variable FIN y se saldrá de la subrutina NOM- 
BRE. 


6260 GOSUB 500:REM ---->BORRADO DE PANTALLA 

6270 GOSUB 10000:REM -->MASCARA 

280 60SUB 11000: REM -->VISUALIZACION 

6290 YPOS=20: XPOS=1 

6300 GOSUB 15800:REM -->POSICIONA EL CURSOR 

6310 PRINT "<ESPACIO> PARA SEGUIR, <ESC> PARA 
CONTINUAR* 


En la pantalla se visualiza el registro y en la última línea apa- 
recerá un mensaje con espera de respuesta. De este modo se pue- 
de observar con comodidad la presentación visual y luego, pul- 
sando la barra espaciadora, se tiene la pos:bilidad de ver los re- 
gistros sucesivos y pulsando la tecla <ESCAPE> se suspende la 
visualización de los registros. 


6320 GOSUB 135900:REM -->LECTURA CARACTER 
6330 IF ASCICARS)=27 THEN GOTO 6380 
6340 1F TERMINOS=CL$ THEN 6070 5380 

330 IF EOF(1) THEN GOTO 6380 

6360 GOSUB 15000:REM -->LECTURA CLIENTE 
5370 60T0 6260 
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Se sale de la subrutina: 


e si se pulsa la tecla <ESCAPE>, 

e si el nombre del cliente visualizado corresponde al último 
nombre que se quería imprimir, 

e si no hay otros registros en el fichero. 


De no ser así, se lee un nuevo registro y se cede el control a 
la instrucción 6260. 

En Pascal, el procedimiento NOMBRE se lleva al apéndice en 
ol programa SEC__GESTION, El fichero CLIENTES.DAT se abre 
como entrada y luego se solicita el nombre del primer cliente a 
leer, almacenándolo en PARTIDA; finalmente se solicita el nom- 
bre del último cliente almacenándolo en la variable TERMINO. 


nominativo:=partida; 
clave; 
IF NOT fin 
THEN REPEAT 
borrado_pantalla; 
mascara; 
visualizacion; 
tueras=cliente”.cliente=termino; 
60TOXY (0,20); 
GET (cliente); 
WRITE (<ESPACIO) PARA SEGUIR, ”, 
ESC) PARA TERMINAR”); 
READ (respuesta); 1 
UNTIL (respuesta)=CHR$(27) 
OR (fuera) 
OR EOF (cliente); 


El procedimiento CLAVE se encarga de encontrar el primer 
nombre, Si no lo encuentra pone a 1 (VERDADERO) la variable 
booleana FIN. Si encuentra el primer nombre activará un bucle de 
instrucciones controlado por REPEAT UNTIL. Con dichas instruc- 
ciones se visualiza en la pantalla el registro y se da la posibilidad 
al operador de visualizar los registros sucesivos o de interrumpir 
el bucle (pulsando la tecla <ESCAPE>) El bucle se interrumpirá: 


e si el operador pulsa la tecla <ESCAPE>; 
e si se ha visualizado el último nombre deseado; 
e si se hen acabado los registros del fichero (EOP). 
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Es interesante la instrucción FUERA = CLIENTES”.CLIEN=" 
TE=TERMINO, en donde el nombre del cliente se compara con el 
contenido de la variable TERMINO), si los dos valores son diferen-' 
tes, FUERA toma el valor de FALSO y si los dos valores son igua- 
les, FUERA toma el valor de VERDADERO. 


Subrutina CLAVE 


Esta subrutina examina los registros desde el inicio del fiche- 
ro y busca el nombre del cliente que corresponde al contenido 
de la variable NOMINATIVO. En el caso de que el cliente no se 
encuentre se activará la variable FIN. 

En BASIC la subrutina se lleva al apéndice, desde la línea 
13000 a la 13080 del programa SEC__GESTION. Consideramos que 
dicha subrutina está suficientemente documentada. 

En Pascal, el procedimiento CLAVE se lleva al apéndice en 
el programa SEC__GESTION. El núcleo del procedimiento consis- 
te en un bucle de instrucciones que comienza con una instruc- 
ción REPEAT y termina con la instrucción UNTIL(CLIENTE=NO- 
MINATIVO) OR EOF(CLIENTES). La variable FIN se pone a cero 
(FALSO) si hay todavía registros en el fichero, y, de no ser así, se 
pone a 1 (VERDADERO). 


Subrutina MODIFICACION 


Sirve tanto para modificar como para borrar registros. En los 
ficheros secuenciales no es posible modificar el estado de un fi- 
chero si no se crea otro nuevo que comprenda las modificacio- 
nes. El nuevo fichero tiene como nombre externo CLIENTES.NOV. 
Al comienzo de la subrutina se abren los ficheros, el primero en 
lectura (entrada) y el segundo en escritura (salida, es decir, se tra- 
ta de un fichero nuevo). 

Más adelante se leen todos los registros del fichero de clien- 
tes. Cada registro se presenta en la pantalla y el operador tiene 
la posibilidad de dejarlo intacto, modificarlo o suprimirlo. Si el re- 
gistro debe volver a copiarse se escribirá en el fichero de salida 
(output). Si el registro debe suprimirse no se escribe en el nuevo 
fichero, pero antes de ejecutar esta función se solicita la confirma- 
ción correspondiente al operador. Si el registro ha de modificarse 
es posible cambiar cualquier campo. El cursor se posiciona al co- 
mienzo del campo, y si el operador quiere modificarlo, pulsará la 
tecla <ESCAPE>, luego escribirá los nuevos valores, concluyen- 
do con la tecla <RETURN>. Si no quiere modificar el campo, el 
operador pulsará la tecla <RETURN>. 
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En BASIC la subrutina se lleva al apéndice y ocupa las ins- 
Imeciones 8000/8830 del programa SEC__GESTIÓN. Procedemos 
1 comentar las instrucciones principales: 


8040 OPEN "1",1,*CLIENTES. DAT" 
8050 OPEN "0",2,”"CLIENTES.NOV" 


El fichero CLIENTES.DAT se abre como entrada (Input), mien- 
lras se crea un nuevo fichero, de nombre CLIENTE.NOV, que con- 
londrá la nueva situación de clientes. 


8070 IF EOF(2) THEN GOTO 8730 

8080 60SUB 15000:REM -->LECTURA CLIENTE 
8090 G0SUB 500:REM ---->BORRADO DE PANTALLA 
B100 REM 

8110 GOSUB 10000:REM -->MASCARA 

8120 GOSUB 11000:REM -->VISUALIZACION 

8130 YPOS=20: XPOS=1 

8140 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8150 PRINT "MODIFICA, B)ORRA,R)ECOPIA"; 


Cada registro se presenta en la pantalla; podrá copiarse en el 
nuevo fichero si se da una respuesta "R”, se modificará si se res- 
ponde “M” y, finalmente, se suprimirá si se responde "B”. Si se res- 
ponde con caracteres diferentes a los indicados, se repetirá la so- 
licitud. 

Si quiere modificar el registro se ejecutarán las instrucciones 
8210 a 8270. En la práctica se ejecutan instrucciones similares para 
cada campo del registro. Por ejemplo, para poder modificar el 
campo de la dirección del cliente se hace: 


8230 YPOS=6:XP0S5=11 

8240 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8250 GOSUB 15900:REM -->LECTURA CARACTER 
8260 IF ASC(CAR$)<>27 THEN GOTO 8340 


Hemos colocado el cursor junto al campo de la dirección y 
si el operador responde con la tecla <ESC> se proseguirá con 
las instrucciones siguientes; de no ser así, continúa con el examen 
del campo siguiente: 


8270 YPOS=6:XPOS=13 
8280 G0SUB 15800:REM -->POSICIONA EL CURSOR 
8290 PRINT * 

” 
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El cursor se ha posicionado en el campo a modificar y la an= 
terior situación del campo se elimina de la pantalla. 


8300 SW=3 

8310 XPOS=13:YPOS=6 

8320 G05UB 1000:REM --->TECLADO 
8330 INS=ALFAS 


La subrutina TECLADO restituye.en la variable ALFA$ la nue- 
va dirección, que se transfiere a la variable IN$ Después de ha-= 


ber visualizado los demás campos, el registro se grabará y luego 
se vuelven a leer y visualizar otros registros con el empleo de las 
dos instrucciones siguientes: 


8710 WRITE 42,CL$,IN$,C1S,TES,PR$ 
8720 GOTO 8070 


Si el registro se recopia tal como está en el nuevo fichero se 
ejecutarán las instrucciones desde 8700 a 8720. Si se anula el re- 
gistro se ejecutan las instrucciones desde 8770 hasta 8820. 


8780 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8790 PRINT "ODESEA BORRARLO? (5/N)"; 

8800 GOSUB 15900:REM -->LECTURA CATACTER 
8810 IF CARS="s" OR "S" THEN GOTO 8070 
8820 6070 8700 


En el caso de que se responda con “S” o "s” no se graba el 
registro, sino que se lee el siguiente del fichero de entrada; si no 
se responde de forma afirmativa, el registro se grabará sin ningu- 
na modificación. Cuando acabemos los registros del fichero de en- 
trada (Input) se ejecutan las instrucciones siguientes: 


8730 CLOSE 1 
8740 CLOSE 2 
87530 RETURN 


Al apéndice de Pascal llevamos el procedimiento MODIFICA- 
CION, introducido en el programa SEC__GESTION. Procedamos a 
comentar las instrucciones principales: 


RESET (cliente,*cliente.dat*); 
REWRITE (actualizacion, *cliente.nov”); 
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Se abre el fichero CLIENTES.DAT como entrada, mientras que 
como salida (Output) se abre el nuevo fichero CLIENTES.NOV. Las 
instrucciones sucesivas se repetirán varias veces hasta que no se 
hayan acabado los registros del fichero de entrada. 


borrado_pantalla; 

mascara; 

visualizacion; 

60TO0XY(0,20); 
WRITEC¿Modificacion,Clancelar,R)ecopia?:”); 
READ (respuesta); 


Cada registro se visualizará en la pantalla y el operador podrá: 


e recopiarlo en el nuevo fichero, si responde con R; 
e borrarlo, si responde con B; 
e modificarlo, si responde con M. 


En el caso de que no se responda de manera adecuada, se 
volverá a hacer la solicitud correspondiente. Si se quiere borrar 
el registro, se solicitará la confirmación al operador, y si este úl- 
timo da una respuesta negativa, el registro se llevará al fichero 
ACTUALIZACION. 
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APENDICE BASIC 


ACCESO ALEATORIO 


PREPARACION 


100 REM S8RRERRRAIIRILORRCRRIRERRISRRINARIGBA 

110 REN $ RAN_PREPARA 1 

120 REN SERERRSRINIRIBRARURR2IRIRRRIIARRIR OR 

130 REM 

140 FICHERO$="CLIENTES. DAT” 

160 OPEN "R",1,FICHEROS, 88 

170 INPUT “¿DE CUANTOS REGISTROS ESTARA COMPUESTO 
EL FICHERO?: ";ULTIMO t 

180 PRIMERO=2 

190 FIELD 1,2 AS PRIMEROS, 2 AS ULTIMOS 

200 LSET PRIMEROS=MKIS (PRIMERO) 

210 LSET ULTIMOS=MKI$(ULTINO+1) 

220 PUT 41,1 

230 FIELD 1,31 AS CLIENTES, 33 AS DIRECCIONS,15 AS 
CIUDADS, 4 AS TELEFONOS, 4 AS PREFIJOS, 1 AS TIPOS 

250 LSET CLIENTES="" 

260 LSET DIRECCIDN$="*" 

270 LSET CIUDADS="" 

280 LSET TELEFONDS="0" 

290 LSET PREFIJOS="0000" 

300 LSET TIPO$=" * 

320 FOR X%=2 TO ULTIMO+1 
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330 PUT +1,X2 

340 NEXT X2 | 
350 CLOSE $1 

400 END 


ACCESO ALEATORIO 
GESTION 


100 REM 4RRRLRRIRRARISIRARRIIRIARRRADIRDAS 

110 REM 4 RAN_GESTION i y 
120 REM SRRSARARIRRARRARIIIIRRIRRIRIRIARRA 

130 REM 

140 OPEN "R",1, "CLIENTES. DAT”, 88 

170 NUMERD%=1 

180 FIELD 1,2 AS ACTUAL$,2 AS ULTIMOS 

190 GOSUB 15000:REM ---->LEE CLIENTE/1 

200 ACTUALA=CVI(ACTUALS) 

210 ULTIMO2=CVI (ULTIMOS) 


220 G0SUB S00:REM ------ >BORRADO DE PANTALLA 
230 GOSUB 800: REM ------ MENU 

240 ON QUEQUIERE GOSUB 2000,4000,6000,8000, 9000 
250 IF QUEQUIERE <>9 THEN GOTO 220 

270 CLOSE 1 

290 END 


DURE cc cosas 
510 REM :: BORRADO DE PANTALLA «<: 
520 REM esssrsoorcosoncososicoco9ss 


330 REM 


840 PRINT "1 --> CARGA DE DATOS” 

850 PRINT 

860 PRINT *2 --> LECTURA DE REGISTROS" 
870 PRINT 
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100 PRINT "4 --> MODIFICACION DE UN REGISTRO" 

10 PRINT 

020 PRINT "5 --> BORRADO DE UN REGISTRO” 

930 PRINT 

040 PRINT "9 --> FINAL DE PROGRAMA" 

950 PRINT. 

060 PRINT "?"sRESPUESTAS=INPUTS (1) : QUEQUIERE= 
ASC(RESPUESTAS) -ASC ("0") 

980 RETURN 

1000 REN cesstsscscias aa 

1010 REM 3: TECLADO :: 

1020 REM oia ada 

1030 REM 

1040 ALFAS="" 

1050 GOSUB 15800:REM --->POSICIONA EL CURSOR 

1060 G0OSUB 15900sREM --->LECTURA DEL CARACTER 

1070 IF ASCICAR$)=13 THEN GOTO 1210 

1080 1F ASCICAR9)<>8 THEN GOTO 1310 

1090 REN =ooo=nomoncanomanmo==== 


1110 REM ==o=o-===n=n=o=ns=====- 

1120 IF LENCALFAS)>1 THEN ALFAS=LEFTS(ALFAS, 
LEN (ALFA$)-1) ELSE ALFA$="" 

1130 REM -oo==oo===o=onmenosonmn==- 

1140 REM -- IMPRESION DEL CAMPO -- 

1150 REN ---=—oeo==o==ononomanoo==== 

1160 GOSUB 15800:REM -->POSICIONA EL CURSOR 

1170 PRINT ALFAS;" "; 

1180 GOSUB 15800:REM -->POSICIONA EL CURSOR 

1190 PRINT ALFAS 

1200 GOTO 1060 

1210 REM sororssssoosoipooosos 

1220 REM 2; NUEVA ENTRADA :: 

1230 REN errors oo conciso 

1240 IF SH=3 THEN RETURN 

1250 64=0 

1260 FOR X=1 TO LENCALFAS) 

1270 G4=64410+ASC(MIDS(ALFAS,X, 1))-48 

1280 NEXT X 

1290 IF SW=1 THEN PEDUEÑOS=CSNG (64) ELSE 
GRANDE+=64 
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1300 RETURN 


1310 REM o 
1320 REM -- CARACTER NORMAL -- 

1330 REM > 

1340 IF 5H=3 THEN GOTO 1450 

1350 REM > 

1360 REM -- CARACTER NUMERICO -- 

1370 REM 

1380 IF CARS<"0" OR CARS)"9" THEN GOTO 1400 “> 
1390 GOTO 1490 

LADO REM nn 

1410 REM -- ERROR DE TECLA -- 

1420 REM oo 


1430 PRINT CHR$(7); 
1440 GOTO 1060 
LAGO REM. ono 


LOTO REN nono 
1480 1F CARS<" " OR CAR$>"2" THEN GOTO 1400 
1490 ALFAS=ALFAS+CARS 

1500 GOTO 1130 


2010 REM :: CARGA DE DATOS :: 
LOL RE ici ias 
2030 REM 
.2040 60SUB 500:REM -->BDRRADO DE PANTALLA Ñ 
2050 PRINT "LA CARGA PARTE CON EL NUMERO: "; ACTUALZ-1 
2060 IF ACTUALZ<3 THEN GOTO 2140 
2070 NUMEROZ=ACTUALZ-1 
2080 FIELD 1,31 AS CL$,33 AS 1N$,15 AS CIS, 
4 AS TES$,4 AS PRS,1 AS TIS 
2090 GOSUB 15000:REM -->LECTURA DE CLIENTE 
2100 PRINT "EL REGISTRO ESCRITO ES El SIGUIENTES” 
2110 GOSUB 10000:REM -->MASCARA 
2120 60S5UB 11000:REM -->VISUALIZACION 
2130 PRINT 2 
2140 INPUT "PULSE <RETURN> PARA INICIAR LA CARGA"; 
RESPUESTAS 
2150 REM 
2155 FIELD 1,31 AS CL$,33 AS INS$,15 AS CIS, 
4 AS TES,4 AS PR$,1 AS TIS 
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2160 GOSUB 500sREM ---->BORRADO DE PANTALLA 

2170 YP0S=20:XPOS=1 

2180 GOSUB 15800:REM -->POSICIONA EL CURSOR 

2190 PRINT "PARA ACABAR LA CARGA,A LA SOLICITUD 
NOMBRE DEL CLIENTE TECLEE *2222*" 

2200 GOSUB 10000:REM -->MASCARA 

2210 XPOS=13:YPOS=4 

2220 SH=3 

2230 GOSUB 1000:REM --->TECLADO 

2240 NOMINATIVOS=ALFAS. 

2250 IF NOMINATIVOS="22z2" THEN RETURN 

2260 1F ACTUALZAULTIMO% THEN INPUT "NO PUEDE 
CONTINUAR. SE HA SUPERADO LA DIMENSION DEL 
FICHERO 

2270 605UB 12000:REM --->CALCULO 

2280 G0SUB 13000:REM --->BUSQUEDA 

2290 1F FIN=1 GOTO 2320 

2230 INPUT “ESTE CLIENTE YA EXISTE. NO PUEDO 
INTRODUCIRLO.PULSE <RETURN>"; RESPUESTAS 

2310 RETURN 

2320 CLIENTES=MOMINATIVOS 

2330 S5H=3 

2340 XPOS=13 

2330 YPOS=6 

2360 G05UB 1000:REM --->TECLADO 

2370 DIRECCIONS=ALFAS 

2380 S5H=3 t 

2390 XPOS=13 

2400 YPOS=8 

2410 GO0SUB 1000:REM --->TECLADO 

2420 CIUDADS=ALFA 

2430 S5H=2 

2440 APOS=13 

2450 YFOS=10 

2460 GOSUB 1000: REM ---*TECLADO 

2470 TELEFONDR=GFANDER 

2480 SN=3 

2490 S=XPDS=13 

25006 YPOS=12 

2510 50SUB 1000:REM -->>TECLADO 

2520 PREFIJOS=ALFAS 
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2530 1 1P0g=" * 
2540 GOSUB 15200:REM --->LECTURA HASH 

2550 COLISIONY=CUI(HASHS) 

2560 LSET HASH$=MK18 (ACTUALZ) 

2570 GOSUB 15700:REM ---> ESCRITURA HASH 

2580 FIELD 1,31 AS CLS, 33 AS INS,15 AS CI, 

4 AS TES, 4 AS PRS,1 AS TIS, 2 AS COS 

2590 LSET CL$=CLIENTES 

2600 LSET INS=DIRECCIONS >. 

2610 LSTE C1$=CIUDADS 

2620 LSET TES=MKI8 (TELEFONOS) 

2630 LSET PR$=PREFIJDS 

2640 LSET TIS=TIPOS 

2650 LSET COS=MKIS(COLISIONZ 

2660 NUMEROZ=ACTUALZ 

2670 GOSUB 15500: REM -->ESCRITURA CLIENTE 

2680 ACTUALZ=ACTUALZ+1 : 

2690 FIELD 1,2 AS ACTUALS,2 AS ULTIMOS 

2700 LSET ACTUALS=MKIS (ACTUALZ) 

2710 LSET ULTINOS=MKIS (ULTIMO) 

2720 NUMEROZ=1 

2730 GOSUB 15500:REM --—>ESCRITURA CLIENTE/1 

2740 GOTO 2150 


2750 REM 

BOOO REN crcrrronnoc ross noc t ia S OSOS O3INSagosS 
4010 REM <: LECTURA CON El NUMERO DE REGISTRO 

BODO REM ccosocotonincio ropa r IDO Ia Os IODIDDDIDadO 

2070 REM 


4040 YPOS=20:XPOS=1 

4050 GOSUB 15800:REM -->POSICIONA El CURSOR 

4060 PRINT "NUMERO DEL PRIMER REGISTRO: " 

4070 SW=1 

4080 XFOS5=32 

4090 YPOS=20 

4100 GOSUB 1000:REM --->TECLADO 

4110 e cara ed 

4120 YFOS5=20:XP05= 

4130 GOSUB pa -->POSICIONA CURSOR 

4140 PRINT “NUMERO DEL ULTIMO REGISTRO: * 
150 5W=1 

4160 AFOS=32 
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AL7OYPOS=20 

4180 GOSUB 1000: REM --->TECLADO 

4190 ALTA=PEOUEROS+1 

4200 IF ALTIDACTUAL-1 THEN ALTA=ACTUALA-1 

4210 GOSUB 11700:REN -->POSICIONA 

4220 IF FINE=1 “HEN RETURN 

4230 REM 

4240 GOSUB S00:REM ---->BORRADO DE PANTALLA 

4250 GOSUB 10000:REM -->MASCARA 

4250 GOSUB 11000: REM -->VISUALIZACION 

270 YPOS=20:AP05=1 

4280 GOSUB 15800:REM -->POSICIONA EL CURSOR 

4290 GOSUB 11500:REM --ALISTA 

4300 PRINT "<ESPACIO> PARA SEGUIR, <ESCAFE> PARA 
ACABAR" 

4310 RESPUESTAS=INFUTS (1) 

4320 IF ASCIRESPUESTAS)=27 OR FIN=1 OR INICIO%> 
ALT%+1 THEN RETURN 

4330 6070 4230 


AO coa 
5010 REM 2: ERQOR DE TECLADO 21 
MA O OOO 
5030 REM 

6040 RETURN 

5050 REM 

BOO RE casa 
Bo10 REM :2 MODIFICACION +: 
BOO E aaa 
8030 REM 


8040 GOSUB SO0:REM ---->BORRADO DE PANTALLA 
8050 YPOS=20:XPOS=1 

8060 G0SUB 15800:REM --+POSICIONA EL CURSOR 
3070 FRINT "NUMERO DE RESISTRO:" 

8630 SW=1 

8090 XFOS=23:YPO0S=20 

8100 GOSUB 1000:REM --->TECLADO 

8110 INICION=PEQUEROA+H 

8120 60S4B 11700: REM --+POSICIONA 

8130 IF FIN=G THEN S0T0 8210 
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8170 YPOS=20:XP05=1 

8180 GOSUB 15800: REM -->POSICIONA EL CURSOR 

8190 INPUT "NO EXISTE ESTE REGISTRO, FULSE 
<RETURNS"5PESPUESTAS 

200 RETURN 

8210 REM 

8220 50S5UB 10000: REM -->MASCARA 

8230 G60SUB 11000:REM -->VISUALIZACION 

8240 YPOS=20:IPOS=1 > 

8250 G60SUB 15800:+REM -->POSICIONA EL CURSOR 

8250 PRINT "PULSE <ESC> PARA MODIFICAR EL CAMPO 
O <RETURN> PARA CONTINUAR” 

8261 YP0S=4: XPOS=11 

8262 G0SUE 15800:REN -->POSICIONA EL CURSOR 

8263 GO0SUB 15900:REM -->LECTURA CARACTER 

8264 IF ASCICAR$)<227 THEN GOTO 8275 

8265 YFOS=4:XP0S=13 

82656 GO0SUB 15800:REM -->POSICIONA EL CURSOR 

8257 PRINT " 

8268 SW=3:YPOS=4: XP05=13 

8269 GOSUB 1000:REM --->TECLADO 

8270 LSET CL$=ALFAS 

8273 YPOS=6:XPOS=11 

8280 GOSUB 15800:REM -->POSICIONA EL CURSOR 

8290 505UB 13900:REM -->LECTURA CARACTER 

8300 IF ASCICAR$)<>27 THEN GOTO 8380 

8310 YPOS=5:XFOS=13 

8320 605UB 15800:REM -->POSICIONA EL CURSOR 

8330 PRINT * 


8340 SW=3 

8350 XP0S=13: YPOS=b6 

8360 GOSUB 1000:REM --->TECLADO 

8370 LSET IN$=ALFAS 

8380 REM 

8390 YP05=8:XPOS=11 

B400 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8410 G0SUB 15900:REM -->LECTURA CARACTER 
8420 IF ASCICAR$)<>27 THEN GOTO 8500 

8430 YPOS=B8:XP0S=13 
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8440 GOSUB 15800:REM -->POSICIONA EL CURSOR 
9450 PRINT * 


B460 SH=3 

8470 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8480 GOSUB 1000:REM --->TECLADO 

8490 LSET CIS=ALFAS 

8500 REM 

8510 YPOS=10:XPOS=11 

8520 GOSUB 15800sREM -->POSICIONA EL CURSOR 
8530 GOSUB 15900:REM -->LECTURA CARACTER 
8540 1F ASC(CAR$)<>27 THEN GOTO B620 

8550 YPOS=10; XP0S=13 

560 GOSUB 15800:REM POSICIONA EL CURSOR 
8570 PRINT * 

» 

8580 SW=2 
8590 XPOS=13:YPOS=10 
8600 GOSUB 1000: REM --->TECLADO 
8610 LSET TES=MKSS (GRANDESN) 
8620 REM 
8630 YPOS=12:XPOS=11 
8640 G0SUB 15800:REM -->POSICIONA EL CURSOR 
8650 GOSUB 15900:REM -->LECTURA CARACTER 
8660 IF ASCICARS)<>27 THEN GOTO 8740 

8670 YPOS=12:XPOS=13 
8680 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8590 PRINT * 


8700 SH=3 

8710 YPOS=12:XP0S=13 

8720 G0SUB 1000: REM --->TECLADO 
8730 LSET PR$=ALFAS 

8740 REM 

8750 GOSUB 15500: REM -->ESCRITURA CLIENTE 
8760 RETURN ' 

8770 REM 

000 RE reza 

9010 REM :: ANULACION 

O aa 

9030 REM 
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9040 GOSUB 500:REM ---->BORRADO DE PANTALLA 
9050 YPOS=20:XPOS=1 

9060 G0SUB 15800:REM -->POSICIONA EL' CURSOR 
9063 PRINT "NUMERO DEL REGISTRO:" 

9070 SW=1:XPOS=23:YPOS=20 

9080 GOSUB 1000:REM --->TECLADO 

9090 INICION=PEQUEROZ+1 

9110 GOSUB 11700:REN -->TECLADO 

9120 IF FIN=1 THEN GOTO 9250 ». 
9130 G0SUB 10000:REM -->MASCARA 

9140 GOSUB 11000:REM -->VISUALIZACION 

9150 YPOS=20:XPDS=1 

9160 GOSUB 135800:REM -->POSICIONA EL CURSOR 
9170 PRINT "¿QUIERE BORRARLO?(S/N)"; 

9180 GOSUB 13900:REM -->LECTURA CARACTER 
9190 IF CAR$="S" OR CAR$="s" THEN GOTO 9210 
9200 RETURN 

9210 REM 

9220 LSET Tl$="C" 

9230 GOSUB 13300:REM -->ESCRITURA CLIENTE 
9240 RETURN 

9230 REM 

9260 YP0S5=20:XPOS=1 

9270 INFUT "NO EXISTE ESTE CLIENTE, PULSE 


<RETURN>"; RESPUESTAS 
9280 RETURN 
10000 REM cscrrrorosszsss 


10010 REM :: MASCARA 


10030 REM 

10040 YPOS=4: XP0S=1 

10050 G0SUB 15800:REM -->POSICIONA EL CURSOR 
10060 PRINT "CLIENTE — :* 

10070 YPOS=6:XPD5=1 

10080 GOSUB 15800:REM -->POSICIONA EL CURSOR 
10090 PRINT "DIRECCION :" 

10100 YPOS=8:XPOS=1 

10110 GOSUB 15800:REM -->POSICIONA EL CURSOR 
10120 PRINT "CIUDAD " 

10130 YPOS=10: XP0S=1 

10140 G0SUB 15800:REM -->POSICIONA EL CURSOR 
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10150 PRINT "TELEFONO  :” 

10150 YPOS=12:XPDS=1 

10170 GOSUB 15800: REM -->POSICIONA EL CURSOR 
10180 PRINT "PREFIJO :" 

10250 RETURN 

10260 REM 

OOO RE cias 

11010 REM :: VISUALIZACIÓN 

ds O OOOO, 

11030 REM 

11040 YPOS=4;XP05=13 

11050 GOSUB 15800:REM -->POSICIONA EL CURSOR 
11060 PRINT CL$; 

11070 IF TI$<>" * THEN PRINT " ANULADO"; 
11080 YPOS=5:XPOS5=13 

11090 GO0SUB 15800:+REM -->POSICIONA EL CURSOR 
11100 PRINT IN$ 

11110 YPOS=8:XP0S5=13 

11120 GOSUB 15800:REM -->POSICIONA EL CURSOR 
11130 PRINT CIS 

11140 YFOS=10:XP0S=13 

11150 605UB 15800:+REM -->POSICIONA EL CURSOR 
11160 TELEFONOR=CVIS(TES) 

11170 PRINT TELEFONO4 

11180 YPOS12:XPOS=13 ; 

11190 GOSUB 15800:+REM -->POSICIONA EL CURSOR 
11200 PRINT FR$ 

11290 RETURN 

11300 REM 


11510 REM :: LISTA E 

11520 REN stass 

11530 REM 

11540 FIN=0 

11550 IF INICIOZ>=ACTUAL% OR INICIOZ<=0 THEN 
60TO 11410 

11560 FIELD 1,31 AS CL$,33 AS IN$,15 AS CIS, 
4 45 TES,4 AS PR$,1 AS TIS 

11570 NUMEROZ=INICIOZ% 

11580 GOSUB 15000:REM -->LECTURÁ CLIENTES 

11590 INICIOZ=INICIO%+1 
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11600 RETURN 

11610 FIN=1 

11520 RETURN 

11700 REM rsproscrocsossoss 

11710 REM :: POSICIONA <: 

1LTZOLREN e cnanoss 

11730 NUMEROZ=0 

11740 REM 

11750 NUMEROZ=NUMERO%+1 

11760 IF NUMEROZ>INICIOZ THEN 11830 
11770 GOSUB 15000:REM -->LECTURA CLIENTE 
11780 IF EOF(1) THEN GOTO 11830 

11790 IF NUMERO%=INICIO% THEN GOTO 11810 
11800 60T0O 11740 

11810 FIN=0 

11820 RETURN 

11830 FIN=1 

11840 RETURN 

11830 REM 


15030 REM 

13040 GET *1,NUMEROZ 
15050 RETURN 

15090 REM 


13510 REM :: ESCRITURA FICHEROS CLIENTES 


139920 REM crrrcrrocosonsocr cisco sciisiogos 


15530 REM 
15350 PUT 41,NUMEROZ 
15560 RETURN 


15590 REM 

AA RE aos 
15810 REM :: POSICIONA EL CURSO 
O ARO ORO OSO OP OA ODD ANDE 
13830 REM 


15840 LOCATE YPOS,XPOS, 1 

15850 RETURN 

15860 REM 

LIDOO REN socia picos 
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15910 REM :: LECTURA DE UN CARACTER :: 
15920 REM cross iacodos 
15930 REM 

15940 CAR$=INPUTS (1) 

15950 RETURN 

15950 REM 


ACCESO ALEATORIO 


COMPACTACION 


100 REM KLRRARERARRRERINLRARANIARINEIIA 


110 REM *4 RAN_COMPACT $ 
120 REM EXREXERIRAARRNRURRARAILA RIERA 
130 REM 


140 OPEND "R",2,"CLIENTE.DAT”, 88 

160 OPEND "R",1,"CLIENTE.VIE”,88 

170 FIELD 2,2 AS ACTUAL$,2 AS ULTIMOS 

175 GET 42,1 

180 FIELD 1,2 AS ATTS,2 AS ULTS 

190 GET 41,1 ; 

210 X%=CVIS (ULTIMOS) 

220 VA=CVIS(ATTS) 

230 NUMERO%=1 

235 GOSUB 15500:REM -->ESCRITURA DE CLIENTE 

240 ACTUAL%=2 

230 1/=2 

260 REM 

270 FIELD 1,31 AS CL19,33 AS INDS,15 AS CITS, 
4 AS TEL$,4 AS PRES, 1 AS TIPS 

280 GET 41,2% 

290 1F TIP$<>"C" THEN GOTO 320 

300 PRINT CLI$," ANULADO” 

310 6070 473 

320 REM 

330 1F 224>X% THEN GOTO 500 

340 NOMINATIVOS=CLI$ 

345 FIELD 2,31 AS CL$,33 AS INS,15 AS: CIS, 
4 AS TES,4 AS PR$,1 AS TIS 


360 LSET CL$=CL13 

370 LSET INS=INDS 

380 LSET CI$=CITS 

390 LSET TE$=TELS 

400 LSET PR$=PRES 

410 LSET TIS=TIPS 

450 PRINT CL$ 

460 NUMERDA=ACTUALZ 

470 ACTUALA=ACTUALZ+1 ». 

475 1%=2%+1 

480 IF 22<Y% THEN GOTO 260 

490 G0TO 500 

300 REM 

310 PRINT "HAY ",2%," REGISTROS ACTIVOS EN UN 
FICHERO QUE LOS PREVEE”,Xz,"!" 

320 PRINT "NO PUEDO CONTINUAR" 

350 INPUT "PULSE RETURN"; RESPUESTAS 

540 6070 550 

500 REM 

610 FIELD 2,2 AS ATTS,2 AS ULTS 

620 NUMERD%=1 

623 GOSUB 15000:REM --->LECTURA DE CLIENTES 

630 LSET ATTS=MKI$(ACTUALZ) 

640 GOSUB 15500:REM --->ESCRITURA DE CLIENTES 

650 CLOSE 1 

660 CLOSE 2 

670 END 


15010 REM :: LECTURA FICHERO CLIENTES +;: 
13020 REM cecrocroroorcorociconisicocososs 
15030 REM 

15040 GET $2, NUMERO% 

15050 RETURN 


15060 REM 
13300 REM cecrcocorocroonno cinc ocosocicacos: 
15510 REM :: ESCRITURA FICHERO CLIENTES +: 
13520 REM crtrcrcrroooooconcocasioiiiciicoos 
15530 REM 


15540 PUT 42, NUMEROZ 
15550 RETURN 
15560 REM 
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GESTION SECUENCIAL 
EN_BASIC 


100 REM SIREALAXLRALE NE RIAS 

110 REM 4 SEC_GESTION 84 

120 REM EIRAARRRARALILALIRA 

130 REM 

220 6OSUB 500: REM -->BORRADO DE PANTALLA 

230 GOSUB 800: REM -->MENU 

240 ON QUEQUIERE GOSUB 2000,4000,4060,8000, 9000 
250 IF QUEQUIERE<>9 THEN 60TO 220 
290 END 

OO RE acta 
510 REM :: BORRADO DE PANTALLA : 
O Ras 


540 CLS 
00 REN ao 


820 REN ORO RRSUBnRO 
830 REM 
840 PRINT "1 --> CARGA DE DATOS" 
850 PRINT 
860 PRINT "2 --> LECTURA CON EL NUMERO DE REGISTROS" 
870 PRINT 
980 PRINT "3 --> LECTURA CON EL NOMBRE DE CLIENTE” 
890 PRINT 
900 PRINT "4 --> MODIFICACION O ANULACION DE REGISTRO" 
910 PRINT 
920 PRINT "5 --> PUESTA EN FILA DEL REGISTRO" 
930 PRINT 
940 PRINT "9 --> FIN DEL PROGRAMA” 
950 PRINT 
960 PRINT "2"+RESPUESTAS=INPUTS (1): QUEQUIERE= 
ASC (RESPUESTAS) -ASC ("0") 
980 RETURN 
LO is 
1010 REM :: TECLADO 
1020 REM onticiossa 
1030 REM 
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1040 ALFAS="" 

1050 G605UB 15800:REM -->POSICIONA EL CURSOR 
1060 GOSUB 15900:REM -->LECTURA CARACTER 
1070 IF ASC(CAR$)=13 THEN 1210 

1080 IF ASC(CAR$)<>8 THEN 1310 

A 


A 

1120 1F LENCALFAS)31 THEN ALFAS=LEFTS(ALFAS.. 
LENIALFAS)-1) ELSE ALFAS="" 

A 

1140 REM -- IMPRESION DE CAMPO -- 

A 

1160 G0SUB 15800:REM -->POSICIONA EL CURSOR 

1170 PRINT ALFAS;" "; 

1180 GOSUB 15800: REM -->POSICIONA EL CURSOR 

1190 PRINT ALFAS; 

1200 GOTO 1060 


1210 REM ===> 
1220 REM -- NUEVA ENTRADA -- 
1230 REM === =--- 
1240 1F SW=3 THEN RETURN 

1250 64=0 


1260 FOR X=1 TO LEN(ALFAS) 

1270 G4=G4X10+ASC(MIDS(ALFAS,X,1))-48 

1280 NEXT X 

1290 IF SW=1 THEN PEQUEÑO=CSN6 (64) ELSE 
GRANDER=64 

1300 RETURN 

A A 

1320 REM -- CARACTER NORMAL  -- 

A A 


1350 REN 


1370 REN: 
1380 IF CAR$("0" OR CARS)*9" THEN GOTO 1400 
1390 GOTO 1490 

1400 REM ————=========---- 

1410 REM -- ERROR DE TECLA -- 

1420 REN. ii 
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1430 PRINT CHR$(7); 

1440 GOTO 1060 : 

LAO REN == nr e 

1460 REM -- CARACTER ALFABETICO -- 

1470 REM oooo=oonomaconancancan 

1480 IF CAR$<" " OR CAR$<"2" THEN 60TO 1400 
1490 ALFAS=ALFAS+CAR$ 

1500 GOTO 1130 

2000 hd US 


2030 REM 

2040 OFEN "0",1, "CLIENTES. DAT" 

2050 REM 

2060 GOSUB 13500: REM -->INTRODUCCION DATOS 
2070 1F NOMINATIVOS="2222" THEN 60TO 2700 
2390 CL$=CLIENTES 

2600 INS=DIRECCIONS 

2610 CI$=CIUDADS 

2620 TES=ALFAS 

2630 PR$=PREFIJOS 

2670 GOSUB 15500: REM -->ESCRITURA CLIENTE 
2680 GOTO 2050 

2700 CLOSE 1 

2710 RETURN 


2720 REM 

AO00 REN ari raiasds 1 
4010 REM :: LECTURA CON El NUMERO DE REGISTRO 2: 
OO is 

4030 REM 


4035 OPEN "1”,41, "CLIENTES. DAT" 

4040 YPOS=20:XP05=1 

4050 GOSUB 15800:REM -->POSICIONA EL CURSOR 
4060 PRINT "NUMERO DEL PRIMER REGISTRO: ” $ 
4070 SW=1 

2080 XPOS=32 

4090 YPOS=20 

4100 GOSUB 1000: REM --2TECLADO 

4110 INICIO/=PEQUEÑO%+1 

4120 YPO5=20:XP0S=1 

4130 605UB 15800:REM -->POSICIONA EL CURSOR 
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4140 PRINT "NUMERO DEL ULTIMO REGISTRO: 

4150 SH=1 

4160 XPOS=32 

4170 YP05=20 

4180 GOSUE 1000:REM -->TECLADO 

4190 ALTY=PEQUERO%+1 

4210 GOSUB 11700:REM ->POSICIONA 

4220 1F FIN=1 THEN THEN GOTO 4340 

4230 REN | s 

4240 GOSUB 500:REM --->BORRADO DE PANTALLA 

4250 GOSUB 10000:REM ->MASCARA 

4260 GOSUB 11000:REM ->VISUALIZACION 

4270 YPOS=20: XPOS=1 

4280 GOSUB 15800:REM -->POSICIONA EL CURSOR 

4290 GOSUB 11500:REM -->LISTA 

4300 PRINT "ESPACIO> PARA SEGUIR,<ESC> PARA 
TERMINAR" 

4310 RESPUESTAS=INPUTS (1) 

4320 IF ASC(RESPUESTA)=27 OR FIN=1 OR INICIOZ> 
ALTZ+1 THEN GOTO 4340 

4330 60TO 4230 

4340 REN 

4350 CLOSE 1 

4360 RETURN 

4370 REN 


6040 OPEN "¡",1,"clientes.dat" 

6050 FIN=0 

6060 YPD5=20 

5070 XPOS=1 

5080 GOSUB 13800:REM -->POSICIONA EL CURSOR 
6090 PRINT "NOMBRE DEL PRIMER CLIENTE: " 
6100 SW=3 

6110 XPOS=32 

6120 YP0S=20 

6130 G0SUB 1000:REM --->TECLADO 

6140 POSICIONS=ALFAS 

6150 YP0S=20 
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6160 XFOS=1 
b170 GOSUB 15800:REM -->POSICIONA EL CURSOR 
b180 PRINT "NOMBRE DE ULTIMO CLIENTE: 


6190 SH=3 

0200 XPDS=32 

0210 YPOS=20 

6220 GOSUB 1000: REM --->TECLADO 

6230 TERMINOS=ALFAS 

6240 GOSUB 13000:REM -->CLAVE 

6250 1F FIN=1 THEN GOTO 4380 

6260 GOSUB 500:REM ---->BORRADO DE PANTALLA 

6270 GOSUB 10000:REM -->MASCARA 

6280 G0SUB 11000:REM -->VISUALIZACION 

6290 YPDS=20:XPOS=1 

6300 GOSUB 15800:REM -->POSICIONA EL CURSOR 

6310 PRINT "<ESPACIO> PARA SEGUIR,<E5C> PARA 
CONTINUAR" 

6320 GOSUB 15900:REM -->LECTURA CARACTER 

6330 IF ASC(CAR$)=27 THEN GOTO 6380 

6340 IF TERMINOS=CL$ THEN GOTO 5380 

5350 IF EOF(1) THEN GOTO 6380 

6360 GOSUB 15000:REM -->LECTURA CLIENTE 

0370 GOTO 5260 

6380 REM 

6390 CLOSE 1 

6400 RETURN p 

6410 REM 

B000 REM os 

B010 REM 3: MODIFICACION 25 

BOZO REN os 

8030 REM 

8040 OPEN "1",1,*CLIENTES.DAT” 

8050 OPEN "0",2, "CLIENTES. NOV” 

8060 REM 

8070 IF EOF(1) TREN 6070 8730 

8080 G0SUB 15000:REM -->LECTURA CLIENTE 

8090 60SUB 500: REM ---->BORRADO DE PANTALLA 

8100 REM 

8110 GOSUB 10000:REM -->MASCARA 

8120 GOSUB 11000:REM -->VISUALIZACIÓN 


8130 YPOS=20:XPOS=1 

8140 G60SUB 135800:REM -->POSICIONA EL CURSOR 

8150 PRINT "M)ODIFICA, B)ORRA,R)ECOPIA"; 

8160 GOSUB 135900:REM -->LECTURA CARACTER 

8170 1F CAR$="C" OR CAR$="c" THEN GOTO 8770 

8180 1F CAR$="M" DR CARS="a" THEN GOTO 8210 

8190 1F CARS="R" DR CAR$="r" THEN GOTO 8700 

8200 GOTO 8160 

8210 YP0S=20:XPOS=1 > 

8220 PRINT "PULSE <ESC> PARA MODIFICAR EL 
CAMPO, <RET> PARA CONTINUAR” 

8230 YPOS=b6:XPOS=11 

8240 GOSUB 15800:REM -->POSICIONA EL CURSOR 

8250 G0SUB 15900:REM -->LECTURA CARACTER 

8260 IF ASC(CAR$)<>27 THEN GOTO 8340 

B270 YPDS=6:XPDS=13 

8280 GOSUB 15800:REM -->POSICIONA EL CURSOR 

8290 PRINT ” 


8300 SW=3 

8310 XPOS=13:YPOS=6 

8320 G0SUB 1000; REM --->TECLADO 

8330 INS=ALFAS 

8340 REM 

8350 YPOS=8:XPOS=11 

8360 G0SUB 13800:REM -->POSICIONA EL CURSOR 
8370 60SUB 15900:REM -->LECTURA CARACTER 
8380 IF ASCICAR$)<>27 THEN GOTO 8450 

8390 YFOS=8:XP0S=13 

8400 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8410 PRINT * 


8420 SH=3 

8430 GOSUB 15800:REM -->POSICIONA El CURSOR 
8440 GOSUB 1000: REM --->TECLADO 

8450 CI$=ALFAS 

8460 REM 

8470 YFOS=10:XPOS=11 

9480 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8490 GOSUB 13700:REM -->LECTURA CARACTER 
8500 1F ASCICAR$)<>27 THEN GOTO 8580 
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0510 YPOS=10:XPOS=13 
(0520 GOSUB 15800: REM --¿POSICIONA EL CURSOR 
0530 PRINT * 


0540 5H=2 

0550 XPOS=13:YPOS=10 

0560 GOSUB 1000:REM --->TECLADO 

B570 TES=ALFAS 

0580 REM 

0590 YPOS=12:XPOS=11 

0600 GOSUB 15800:REM -->POSICIONA EL CURSOR 
0610 EOSUB 15900: REM -->LECTURA CARACTER 
8620 IF ASCICAR$)<>27 THEN GOTO 8700 

8630 YPOS=12:XFOS=13 

0640 GOSUB 15800:REM -->POSICIONA EL CURSOR 
8650 PRINT ” 


B6650 SW=3 

8670 YPOS=12:XPOS=13 

8680 GOSUB 1000:REM --->TECLADO 

8690 FR$=ALFAS 

8700 REM 

8710 WRITE 42,CL$,IN$,CIS, TES,PRS 

8720 GOTO 8070 

8730 CLOSE 1 

8740 CLOSE 2 

8750 RETURN 

8760 REM 

8770 YPOS=20:1P05=1 

8780 GOSUB 15800: REM -->FOSICIONA EL CURSOR 
8790 PRINT "oDESER BORRARLO? (5/N)"; 
8800 605UB 15900: REM -->LECTURA CATACTER 
8810 IF CARS="s" CR "S" THEN GOTO 8070 
8820 60TO 8700 

8830 REM 

OOO E osa 

0010 REM :: PUESTA EN FILA 

ORO IRE asadas 

9030 REM 

9040 OPEN “CLIENTES.DAT" FOR APPEND AS 4H 
9050. REM 


137 


9060 GOSUB 13500:REM -->INTRODUCCION DE DATOS 
9070 IF NOMINATIVOS="2222" THEN GOTO 3200 
9090 CL$=CLIENTES 

9100 INS=DIRECCIONS 

9110 CI$=CIUDADS 

9120 TES=ALFAS 

2130 PRS=PREFIJOS 

9140 605UB 15500:REM -->ESCRITURA CLIENTE 
9150 60T0 9050 Pe 
9200 CLOSE 1 

9710 RETURN 

9220 REM 

10000 REM cocons0: 
10010 REM :: MASC 
10020 REM csoso00 
10030 REM 

10040 YPOS=4:XPOS=1 

10050 GOSUB 15800:REM -->POSICIONA El CURSOR 
10060 PRINT "CLIENTE —:" 

10070 YPOS=6: XPDS=1 

10080 GOSUR 15800:REM -->POSICIONA EL CURSOR 
10090 PRINT "DIRECCION :" 

10100 YPOS=8:XPOS=1 

10110 G0SUB 15800:REM -->POSICIONA EL CURSOR 
10120 PRINT "CIUDAD E 

10130 YPOS=10:XP0S=1 

10140 60SUB 15800:REM -->FOSICIONA EL CURSOR 
10150 PRINT "TELEFONO  :" 

10160 YP0S=12:XP05=1 

10170 GOSUB 15800:REM -->POSICIONA EL CURSOR 
10180 PRINT "PREFIJO :" 

10220 RETURN 
12300 REM 
11000 REM coccorcoccosassoos 
11016 REM :: VISUALIZACION 
11020 REM cerrorirsorsoosss 
11036 REM 

11040 YPOS=6:XP05=13 

11050 605UB 15800:REM -->POSICIONA El CURSOR 
11060 PRINT CL$ 

11080 YPOS=6:XP05=13 
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11090 G0SUB 15800: REM -->POSICIONA EL CURSOR 
11100 PRINT IN$ 

11110 YPOS=8:+XP05=13 

11120 60SUB 15800:REM -->POSICIONA EL CURSOR 
11130 PRINT CI$ 

11140 YPOS=10:XPOS=13 

11150 G0SUB 15800:REM -->POSICIONA EL CURSOR 
11170 PRINT TES 

11180 YPOS=12:XP05=13 

11190 G0SUB 15800:REM -->POSICIONA EL CURSOR 
11200 PRINT PR$ 

11250 RETURN 

11260 REM 

OO Ecos 

JSIOREM:s CEISTA 

IIOZO RE aaa 

11530 REM 

11540 FIN=0 

11550 IF EOF(1) THEN GOTO 11610 

11580 60SUB 15000:+REM -->LECTURA CLIENTE 
11590 INICIOA=INICIO%+1 

11600 RETURN 

11610 FIN=1 

11620 RETURN 

TOO RE ee aa 

11710 REM 2: POSICIONA <: 


11730 REM 

11740 NUMERO%=0 

11750 NUMEROZ=NUMERO%+1 

11760 IF NUMERO%>INICION THEN 11830 
11770 605UB 15000:REM -->LECTURA CLIENTE 
11780 IF EOF(1) THEN GOTO 11830 

11790 IF NUMERO%=INICIO% THEN GOTO 11810 
11800 G60TO 11740 

11810 FIN=0 

11820 RETURN 

11830 FIN=1 

11840 RETURN 

11850 REM 

1300 REN eses 
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13010 REM 2: CLAVE :: 


13030 REM 

13040 GOSUB 15000:REM -->LECTURA CLIENTE 

13050 IF CL$=PARTIDAS THEN RETURN 

13060 IF EOF(1) TREN FIN=1:RETURN 

13070 60T0 13030 

13080 REM 

13500 REM de 

13510 REM cscsocrsrosiososos 

13520 REM :: SOLICITUDES «<: 

13530 REM cotoscocroscososos 

13540 REM 

13550 G0SUB 500 ---->BORRADO DE PANTALLA 

13560 YP0S=20:XP0S=1 

13570 G0SUB 15800: REM -->POSICIONA EL CURSOR 

13580 PRINT "PARA TERMINAR,A LA SOLICITUD DEL 
NOMBRE DEL CLIENTE RESPONDA *2222*" 

13590 605UB 10000:REM -->MASCARA 

13600 XPOS=13:YP05=4 

13610 SH=3 

13620 GOSUB 1000:REM --->TECLADO 

13630 NOMINATIVOS=ALFAS 

13640 IF NOMINATIVOS="2222" THEN RETURN 

13650 CLIENTES=NOMINATIVOS 

13660 5W=3 

13670 XP0S=13 

13680 YPOS=6 

13690 60SUB 1000:REM --->TECLADO 

13700 DIRECCIONS=ALFAS 

13710 5W=3 

13720 XP0S=13 

13730 YPOS=8 

13740 GOSUB 1000:REM --->TECLADO 

13750 CIUDADS=ALFAS 

137650 5W=2 

13770 XPOS=13 

13780 YPOS=10 

13790 G0SUB 1000:REM --->TECLADO 

13800 TELEFONON=GRANDE+R 

13810 5W=3 
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13820 XPOS=13 

13030 YPOS=12 

13840 GOSUB 100:REM --->TECLADO 
13050 PREFIJOS=ALFAS 

13860 TIPOS=" " 

13870 RETURN 


15000 REM cecrcrssososrcococcoosooosl 
15010 REM :: cd FICHERO Ea 
15020 REM prrossssroscocnsoscacisoooss 
15030 REM 


15040 INPUT $1,CL$,INS,CIS,TES,PR$ 
15050 RETURN 


15090 REM 
15500 REM croorronsoso nooo so npaocos 
15510 REM :: ESCRITURA FICHERO CLIENT 
15520 REM rsoorossooonooooo sn ccasocios 
15530 REM 


15550 WRITE 41,CL$, IN$,CIS,TES,PR$ 
15560 RETURN 
15590 REM 


15800 REM assrrscososcccososinasoss 
15910 REM 2: POSICIONA EL CURSOR +:: 
15820 REM pssprornosonsnosisoonicooo) 


15830 REM 

15840 LOCATE YPOS,XPOS, 1 
15850 RETURN 

15860 REM 


> LECTURA DE UN CARACTER 


15910 ti “ 
15920 RE 
15930 REM 
15940 CAR$=INPUTS (1) 
15950 RETURN 

15960 REM 
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GESTION SECUENCIAL 


EN PASCAL 


PROGRAM sec_gestion; 
TYPE cli=RECDRD 


cliente  :STRINGC31]; 
direccion :STRINGC331; 
ciudad — :STRING[151; 
telofono :INTEGER[81; 
prefijo  :STRINGIA] ; 


END; 
VAR 
clientes 


¿FILE OF cli; 


actualizacion:FILE OF cli; 


fuera, 

fin 
partida, 
termino, 
alfa, 
nominativo 
Car,sH, 
respuesta, 
que quiere 
st 


: BOOLEAN; 


¿STRINGC331; 


¿CHAR; 
¿STRINGC1; 


APENDICE PASCAL 
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grande + INTEGERC1S); 
XoYiZy dy 

X_POS,y_pOS;,. 

inicio,alt, 

pequeno: INTEGER; 


PROCEDURE borrado pantalla; 
BEGIN 
URITE(CHR$(28)); e 
END; 


PROCEDURE teclado; 
BEGIN 
CASE sw OF 
*1” :pequeno:=0; 
*P :grande:=0; 
"3'1alfa:=0; 
END; 
GOTOXY (x_pos, y_pos); 
REPEAT 
READ(KEYBOARD, car); 
IF NOT EOLN(KEYBDARD) 
THEN BEGIN 1F ORD(car)=8 THEN BEGIN 
GOTOXY (x_pos,y_pos); 
CASE sw OF 
"17: BEGIN 
pequeno:=pequeno DIY 10; 
WRITE (pequeno,? ”); 
GOTOXY(x_pos, y_pos); 
WRITE (PEQUENO) ; 
END; 
"7 :BEGIN 
grande:=grande DIV 10; 
WRITE (grande,” >); 
GOTOXY(x_pos, y_pos); 
WRITE (grande); 
END; 
"3 ¿BEGIN 
DELETE (alfa, LENGTH (alfa), 1); 
WRITE (alfa,* ?); 
GOTOXY (x_pos, y_pos); 
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WRITE (alfa); 
END; 
END; 
END 
ELSE BEGIN 
IF su IN [*1*,*2*] 
THEN BEGIN 
IF car IN[*0*,.*9*] 
THEN BEGIN 
IF sm=*1? 
THEN pequeno:=pequeno*10+0RD(car)-48 
ELSE grande:=grande+10+0RD(car)-48; 
urite 
END 
ELSE WRITE(CHR$(7)); 
END (del campo numerico) 
ELSE BEGIN 
1F Car INES 05%] 
THEN BEGIN 
EA 
stilli=car; 
alfa:=CONCAT(alfa,st); 
WRITE (car); 
END 
ELSE WRITE(CHR$(7)); 
END; — (del campo alfabetico) 
END; (si no tecla de retorno) 
END; (no es <RETURN>) 
UNTIL EOLN (KEYBOARD) ; 
END; 


PROCEDURE menu; 
BEGIN 
borrado_pantalla; 
WRITELN; 
WRITELN(?1 --> CARGA DE DATOS”); 
WRITELN; 
WRITELN(*2 --> LECTURA CON EL NOMBRE DE CLIENTE”); 
WRITELN; 
WRITELN(”3 --> LECTURA CON EL NUMERO DE REGISTRO”); 
WRITELN; 
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WRITELN(”4 --> MODIFICACION O ANULACION DE REGISTRO”); 
WRITELN; 
WRITELNOS --> PUESTA EN COLA DEL REGISTRO AL FINAL”); 
WRITELN; 
WRITELN(*9 --> FIN DEL PROGRAMA”); 
WRITELN; 
READ(QUE_QUIERE) ¡ ARITELN; 
END; 


PROCEDURE visualizacion; 

BEGIN 

WITH CLIENTE” 

DO BEGIN 
G0TOXY (13,4); 
WRITE (cliente”.cliente); 
GOTOXY (13,6); 
WRITE (direccion); 
GOTOXY (13,8); 
WRITE (ciudad); 
60TOXY (13,10); 
WRITE (telefono); 
G0TOXY(13,12); 
WRITE (prefijo); 

END; 
END; 


PROCEDURE mascara; 

BEGIN 
GOTOXY(0,4); 
WRITE( cliente he 
GOTOXY (0,6); 
WRITE ("direccion  :”); 
5OTOXY (0,8); 
WRITE (* CIUDAD ls 
GOTOXY (0,10); 
WRITE (telefono 2”); 
50TOXY(0,12); 
WRITE ("prefijo dy 

END; 
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PROCEDURE clave; 
BEGIN 
WITH cliente” 
DO REPEAT 
1F clienteí>mominativo THEN GET (cliente); 
UNTIL (cliente=nominativo) 
OR EOF (cliente); 
fin:=E0F (cliente); 
END; 


PROCEDURE modificacion; 
BEGIN 
RESET (cliente,*cliente.dat”); 
REWNRITE (actualizacion, *cliente.nov?); 
WHILE NOT EOF(cliente) 
DO BEGIN 
borrado_pantalla; 
mascara; 
visualizacion; 
GOTOXY (0,20); 
WRITE(*¿Modificacion,Clancelar,R)ecopia?:”); 
READ (respuesta); 
IF respuesta IN [*C*,*c*] 
THEN BEGIN — BORRADO) 
6OTOXY (0,20); 
WRITE (¿QUIERE BORRARLO? (5/N)*); 
READ(respuesta); 
IF respuesta IN [*N*,*n*] 
THEN BEGIN 
actualizacion*:=cliente*; 
PUT (actualizacion); 


END; 
END; 
ELSE IF respuesta IN [*M”,*m”] 
THEN BEGIN tmodificacion) 
GOTOXY(0,13); 


WRITE (* PULSE <ESC> PARÁ MODIFICAR EL CAMPO, 
¿RETURN? PARA SEGUIR”); 

60T0XY(13,4); 

READ (respuesta); 

IF respuesta=CHR$(27) 


THEN BEGIN 

GOTOXY (13,4); 

WRITE O Ys 

x_pos:=13; 

y_pos:=4; 

su="3"; 

cliente*.cliente:=alfa; 
END; 


GOTOXY (13,0); 
READ(respuesta); 
IF respuesta=CHR$(27) 
THEN BEGIN 
GOTOXY (13,6); 
URITE(? be 
x_pos:=13; 
y_pos:=6; 
teclado; 
cliente*.direccion:=alfa; 
END; 


G0TOXY (13,8); 
READ (respuesta); 
IF respuesta=CHR$ (27) 
THEN BEGIN 
6070XY (13,8); 
WRITE (? E 
x_pos:=13; 
y_pos:=8; 
teclado; 
cliente”.ciudad:=alfa; 
END; 


60T0XY(13,10); 
READ (respuesta); 
IF respuesta=CHR$(27) 
THEN BEGIN 
G0TOXY (13,10); 
WRITE E 
x_pos:=13; 
y_pos:=10; 
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sui="2?; 

teclado; 

cliente”. telefono:=grande; 
END; 


60TOXY (13,12); 
READ(respuesta); 
IF respuesta=CHR$ (27) 
THEN BEGIN 
50T0XY (13,12; 
WRITE (? E 
x_pos:=13; 
y_pos:=12 
su= 3; 
teclado; 
cliente”.prefijo:=alfa; 
END; 
actualizacion*:=cliente”; 
PUT (actualizacion); 
END (modificacion) 


ELSE BEGIN (recopia) 
actualizacion*:=cliente”; 
PUT (actualizacion); 
END; Cinalterado) 
BET (cliente); 
END; (registro existente) 
CLOSE (cliente); 
CLOSE (actualizacion,LOCK); 
END; 


PROCEDURE nombre 

BEGIN 

RESET (cliente, 'cliente.dat”); 
60TOXY (0,20); 

WRITE(NOMBRE DEL PRIMER CLIENTE — 3”); 
READLN (partida); 

60T0XY (0,20); 

HRITE(? NOMBRE DE ULTIMO CLIENTE —:?, 


60TOXY (32,20); 
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READLN (termino); 
nominativo:=partida; 
clave; 
IF NOT fin 
THEN REPEAT 
borrado pantalla; 
mascara; 
visualizacion; 
fueras=cliente*.cliente=termino; 
GOTOXY (0,20); 
GET(cliente); 
WRITE (* <ESPACIO> PARA SEGUIR,”, 
"ESC? PARA TERMINAR”); 
READ (respuesta); 
UNTIL (respuesta)=CHR$ (27) 
OR (fuera) 
OR EOF (cliente); 
CLOSE (cliente); 
END; 


PROCEDURE posiciona; 
BEGIN 
x5=0; 
REPEAT 
xi=x+1j 
IF x<inicio then GET (cliente); 
UNTIL (x=inicio) 
OR EOF (cliente); 
fin:=E0F (cliente); 
END; 


PROCEDURE lectura; 

BEGIN 

RESET (cliente,*cliente.dat*); 

GOTOXY (0,20); 

WRITE (NUMERO DEL PRIMER REGISTRO: —?); 
su=*1?; 

x_pos:=32; 

y_pos:=20; 

teclado; 

inicio:=pequeno; 
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60T0XY (0,20); 
HRITE (NUMERO DEL ULTIMO REGISTRO:  ?, 


x_pos:=32; 
y_pos:=20; 
teclado; 
alt:=pequeno; 
posiciona; 
1F NOT fin 
THEN REPEAT 
borrado pantalla; 
nascara; 
visualizacion; 
60TOXY (0,20); 
BET(cliente); 
inicio:=inicio+l; 
WRITE(*<ESPACIO) PARA SEGUIR, ”, 
<ESC) PARA TERMINAR”); 
READ (respuesta); 
UNTIL (respuesta=CHR$(27)) 
OR (iniciodalt) 
OR (E0F(cliented); 
END; 


PROCEDURE solicitudes; 
BEGIN 

borrado_pantalla; 

GOTOXY (0,20); 

HRITELN (PARA FINALIZAR LA CARGA, RESPONDA”, 

"2222" A LA PETICION DE CLIENTE”); 

mascara; 

»_pos:=13; 

y_pos:=4; 

se= 3; 

teclado; 

noninativo:=alta; 

IF nominativo<>'2222" 

THEN BEGIN 

WITH cliente” 

DO BEGIN 

cliente:=nominativo; 
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x_pos:=13; 
y_pos:=6; 
teclado; 
direccions=alfa; 
«_pos:=13; 
y_pos:=8; 
teclado; 
ciudad:=a1fa; 
x_pos:=13; 
y_pos:=10; 
sui=>2?; 
teclado; 
telefono:=grande; 
x_pos:=13; 
y_pos:=12; 
su="3%; 
teclado; 
prefijo:=alfa; 
END; — ¿DE LA WNITH CLIENTE) 
END; (51 CLIENTE? 
END; 


PROCEDURE carga; 
BEGIN 
REWRITE (cliente, ”cliente.dat”); 
REPEAT 
solicitudes; 
IF nominativo<)”2222* THEN PUT(cliente); 
UNTIL nominativo=*2222”; 
CLOSE (cliente, LOCK); 
END; | 


PROCEDURE puesta_en_fila; 
RESET (cliente, *cliente.dat); 
REWRITE (actualizazion,”cliente.nov); 
WHILE NOT EOF (cliente) 
DO BEGIN 
actualizacion*:=cliente”; 
WRITELN (cliente”.cliente); 
PUT (actualizacion); 
GET(cliente); 
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END; 
REPEAT 
solicitudes; 
IF nominativoi>*z222* 
THEN BEGIN 
actualizacion*:=cliente”; 
PUT (actualizacion); 
END; 
UNTIL nominativo=*2222”;5 
CLOSE (cliente); 
CLOSE (actualizacion, LOCK); 
END; 


BEGIN 
menu; 
CASE que_quiere OF 
ti carga; 
12 nombre; 
add: lectura; 
nde noditicacion; 
75%; puesta_en fila; 
END; 
END. 


ACCESO ALEATORIO 


PREPARACION 


PROGRAM ran_preparacion; 
TYPE 
cli=RECORD 
CASE BODLEAN OF 
TRUE: (cliente: STRINGC317; 

direccion: STRING[331; 
ciudad: STRINGL157; 
telefono: INTEGER[8]; 
prefijo: STRING[4J; 
tipo: CHAR); 
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FALSE: (prinerosinteger; 
maximorinteger); 
END; 
VAR 
cliente:FILE OF cli; 
xyUltimo: INTEGER; 
BEGIN 
REWRITE (cliente, *cliente.dat*); he 
WRITE(*¿DE CUANTOS REGISTROS ESTARA COMPUESTO EL FICHERO?) ; 
READLN (ultimo); 


WITH cliente” 

DO BEGIN 
primero:=2; 
maximo:=ultiao+l; 
PUT (cliente); 

PUT (cliente); 
clientes=**; 
direccions=??; 
ciudad:=””; 
telefono:=0; 
prefijo:="0000?3. 
tipo:=""; 
FOR X:=2 TO ultimo+1 DO PUT (cliente); 
END; 
CLOSE 
END. 


ACCESO ALEATORIO 


GESTION 


PROGRAN ran_gestion; 
TYPE 
cli=RECORD 
CASE BODLEAN OF 
TRUE: (cliente: STRINGC31]; 
direccion: STRING[33); 
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ciudad: STRINGC151; 
telefono: INTEGERL8I; 
prefijo: 5TRINGC4); 
tiposCHAR); 
FALSE: (primerosinteger; 
maximo:integer); 
END; 


VAR 
clientesFILE OF cli; 
fuera, Fin:BOOLEAN; 
partida,termino,alfa,nominativo:STRING[33] 
car,sw,respuesta, que_quieras CHAR; 
st:STRING[11; 
grande: INTEGER[151; 
X3Y,2,3, 
x_ POS, y_P0S, 
inicio,alt, 
pequeno, actual ultimo: INTEGER; 


PROCEDURE borrado pantalla; 
BEGIN 

WRITE (CHR$(29)); 
END; 


PROCEDURE teclado; 
BEGIN 
CASE su DF 
1” :pequeno:=0; 
"2 :grande:=0; 
Y ialfar="?; 
END; 
GOTOXVY (x_pos, y_pos); 
REPEAT 
READ (KEYBOARD, car); 
IF NOT EOLN(KEYBDARD) 
THEN BEGIN 
1F ORDícar)=8 THEN BEGIN 
GOTOXY(x_pos, y_pos); 
CASE sw 0F 
1”: BEGIN 
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pequeno:=pequeno DIV 10; 
WRITE (pequeno, ? ?); 
GOTOXY (x_pos, y_pos); 
WRITE (PEQUENO) ; 
END; 
2": BEGIN 
grande:=grande DIV 10; 
WRITE (grande,? *); 
GOTOXY (x_pos,y_pos); > 
WRITE (grande); 
END; 
?3” ¿BEGIN 
DELETE (alfa, LENGTH(alfa),1); 
WRITE (alfa,? %); 
GOTOXY (x_pos, y_pos); 
WRITE (alfa); 
END; 


ELSE BEGIN 
IF su IN [*1?,*2*] 
THEN BEGIN 
IF car IN[*0*..*9*] 
THEN BEGIN 
IF su=*1? 
THEN pequeno: =pequeno410+0RD(car)-48 
ELSE grande: =grande310+0RD (car) -48; 
WRITE 
END 
ELSE NRITE(CHR$(7)); 
END (del campo nuaerico) 
ELSE BEGIN 
IES IN 
THEN BEGIN 
sti? *; 
sti1l:=car; 
alfa:=CONCAT (alfa, st); 
WRITE (car); 
END 
ELSE WRITE(CHR$(7)); 
END; — £del campo alfabetico) 
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END; (si no tecla de retorno) 
END; — £no es <RETURNO) 
UNTIL EOLN(KEYBOARD) ; 
END; 


PROCEDURE menu; 

BEGIN 
borrado pantalla; 
WRITELN; 
WRITELN(*1 --> CARGA DE DATOS”); * 
WRITELN; 
WRITELN(*2 --> LECTURA DE REGISTRO”); 
WRITELN; 
HRITELN(*4 --> MODIFICACION DE UN REGISTRO”); 
WRITELN; 
WRITELN(?5 --> ANULACION DE UN REGISTRÓ”) 
WRITELN; 
WRITELN(*9 --> FIN DEL PROGRAMA”); 
WRITELN; 
READ(QUE_QUIERE) ; WRITELN; 

END; 


PROCEDURE visualizacion; 
BEGIN 
WITH cliente” 
DO BEGIN 
GOTOXY (13,4); 
WRITE (cliente*,cliente); 
IF TIPO <>” *THEN WRITE(” ANULADO”) - 
ELSE WRITE (? ») 
GOTOXY (13,6); 
WRITE (direccion); 
6070XY(13,8); 
WRITE (ciudad); 
60T0XY (13,10); 
WRITE (telefono); 
60T0XY (13,12); 
WRITE (prefijo); 
END; 
END; 
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PROCEDURE mascara; 
BEGIN 
GOTOXY(0,4); 
WRITE ("cliente O 
GOTOXY(0,6); 
WRITE (*direccion  :?); 
GOTOXY(0,8); 
WRITE (* CIUDAD E 
GOTOXY (0,10); 
WRITE ("telefono 2”); 
GO0TOXY (0,12); 
WRITE (* prefijo Dep 
END; 


PROCEDURE lista; 
BEGIN 
fin:=FALSE; 
IF (iniciotactual) 
AND (inicio>0) 
THEN BEGIN 
SEEK(cliente,inicio); 
GET(cliente); 
inicio:=inicio+l; 
END 
ELSE fin:=TRUE; 
END; 


PROCEDURE modificacion; 
BEGIN 

borrado_pantalla; 
5OTOXY (0,20); 
WRITE (* NUMERO DEL REGISTRO: ”); 
sas?1?; 

x_pos:=18; 

y _pos:=20; 

teclado; 
inicio:=pequeno+l; 
j:=pequeno+l; 

lista; 

IF NOT fin 

THEN BEGIN 
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Mascara; 

visualizacion; 

50TOXY (0,20); 

WRITE (<ESC> PARA MODIFICAR,”, 

><RETURN> PARA CONTINUAR”); 

GOTORY (13,4); 

READ (respuesta); 

IF respuesta=CHR$(27) 

THEN BEGIN 

G0TOXY (13,4); 

WRITEC 008 

sm= 3%: 

x_pos:=13; 

y_pos:=4; 

teclado; 
cliente”.cliente:=alfa; 
END; 


GOTOXY (13,6); 
READ(respuesta); 
IF respuesta=CHR$(27) 
THEN BEGIN 
50T0XY (13, 6); 
WRITE ml 
su= y"; 
x_pos:=13; 
y_pos:=b; 
teclado; 
cliente*.direccion:=alfa; 


50T0XY (13,8); 
READ(respuesta); 
IF respuesta=CHR$(27) 
THEN BEGIN 
60T0XY (13,8); 
WRITEO 5 
su= 3%; 
x_pos:=13; 
y_pos:=8; 
teclado; 
cliente”.ciudad:=alfa; 
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G0TOXY(13,10); 

READ (respuesta); 

IF respuesta=CHR$(27) 

THEN BEGIN 
GOTOXY (13,10); 
WRITE ds 
sm=*1? 
«_pos:=13; 
y_pos:=10; lx: 
teclado; 
cliente”.telefono:=pequeno; 


GOTOXY (13,12); 
READ (respuesta); 
IF respuesta=CHR$(27) 
THEN BEGIN 
GOTOXY (13,12); 
URITE (O ES 
su=* y; 
x_pos:=13; 
y_pos:=12; 
teclado; 
cliente”. prefijo:=a1fa; 
END; 
SEEK (cliente, j); 
PUT (cliente); 
END 
ELSE BEGIN 
6OTOXY (2,20); 
WRITELN(*NO EXISTE ESTE REGISTRO,”, 
*PULSE <RETURN>”); 
READLN; 
END; 
END; 


PROCEDURE borra; 
BEGIN 

borrado_pantalla; 

6OTOXY (0,20); 

WRITE ("NUMERO DEL REGISTRO: >”); 
sws="17; 
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y_pos:=18; 
y_pos:=20; 
teclado; 
inicio:=pegueno+1; 
J:=pequeno+1; 
lista; 
IF NOT fin 
THEN BEGIN 
mascara; 
visualizacion; 
GOTOXY (0,20); 
WRITE (* ¿QUIERE BORRARLO?(S/N)”); 
READ (respuesta); 
IF respuesta IN[*S”,*s”] 
THEN BEGIN 
cliente”.tipo:="C*; 
SEEK (cliente, j); 
PUT (cliente); 
END; 
END 
ELSE BEGIN 
GOTOXY (0,20); 
WRITELN(*NO EXISTE ESTE REGISTRO,”, 
PULSE <RETURN>*); 
READLN; 
END; 
END; 


PROCEDURE lectura 
BEGIN 
50TOXY (0,20); 
WRITE (* NUMERO DEL PRIMER REGISTRO: —?); 
x_pos:=32; 
y_pos:=20; 
sui=*1?; 
teclado; 
inicio:=pegueno+l; 
GOTOXY (0,201; 
WRITE (* NUMERO DEL ULTIMO REGISTRO: ?, 


x_pos:=32; 
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y_pos:=20; 
swi=*1*; 
teclado; 
alt:=pequeno+l; 
IF altractual-1 THEN alt:=actual-1; 
lista; 
IF NOT tin 
THEN REPEAT 
borrado_pantalla; 
ñascara; 
visualizacion; 
GOTOXY (0,20); 
lista; 
WRITE(*<ESPACIO> PARA CONTINUAR,?, 
*(ESC> PARA ACABAR”); 
READ(respuesta); 
UNTIL (respuesta=CHR$(27)) 
OR (inicioalt+1) 
OR (fin); 
END; 


PROCEDURE carga; 
BEGIN 
borrado_pantalla; 
WRITELN(”LA CARGA PARTE CON EL NUMERO”, ,actual-1); 
IF actual>2 
THEN BEGIN 
SEEK (cliente,PRED(actual)) ; 
GET (cliente); 
WRITELN(*EL REGISTRO ANTERIOR”, 
ESCRITO ES EL SIGUIENTE?) 
Aascara; 
visualizacion; 
WRITELN; 
G0TOXY (0,20); 
WRITE (PULSE <RETURN> PARA CONTINUAR”); 
END; 


REPEAT 
borrado pantalla; 
5O0TOXY (0,20); 
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WRITELN(?PARA TERMINAR RESPONDA "zz22"”, 
“A LA SOLICITUD DEL NOMBRE DEL CLIENTE”); 
Bascara; 
sa= 3”; 
»_pos:=13; 
y_pos:=4; 
teclado; 
nominativos=alfa; 
IF nominativow>*z222* 
THEN BEGIN 
IF actual>ultimo 
THEN BEGIN 
WRITE(*NO PUEDO CONTINUAR, SE HA SUPERADO”, 
"LA DIMENSION MAXIMA. PULSE<RETURN>*); 
READLN; 
EXIT (carga); 
END; 
calculo; 
busqueda; 
IF NOT fin 
THEN BEGIN 
WRITE(*ESTE CLIENTE YA EXISTE, NO PUEDO”, 
* INCLUIRLO. PULSE <RETURN?*); 
READLH; 
EXIT (carga); 
END; 
WITH cliente” 
DO BEGIN 
clientes=nominativo; 
x_pos:=13; 
y_pos:=b6 
teclado; 
direccion:=alfa; 
y_pos:=8; 
teclado; 
ciudad:=alfa; 
smi=>2?; 
y_pos:=10; 
teclado; 
telefono:=grande; 
su= y; 
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y_pos:=12; 
teclado; 
prefijo:=alfa; 
tipos=" ?; 
SEEK(indice,hash); 
GET(indice) 
colisions=indice” 
indice*:=actual; 
SEEK(indice,hash); 
PUT (indice); 
SEEK(cliente,actual); 
PUT (cliente); 
actual:=succ (actual); 
primero:=actual; 
maximo: =ultimo; 
SEEK (cliente, 1); 
PUT(CLIENTE); 
END; (DE LA MITH CLIENTE”? 
END; (51 CLIENTE? 
UNTIL nominativo=*2222* 
END; 


BEGIN 
RESET (cliente,*cliente.dat”); 
SEEK (cliente, 1) ; 
GET (cliente); 
actual:=cliente*,primero; 
ultimo:=cliente”*.maximo; 
REFEAT 
menu; 
CASE que quiere OF 
aran carga; 
LO lectura; 
"Pz modificacion; 
Anfer borrado; 
END; 
UNTIL que quiere="9”; 
CLOSE (cliente,LOCK); 
END, 
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ACCESO ALEATORIO 


COMPACTACION 


PROGRAM ran_compactacion; 
TYPE 
cli=RECORD 
CASE BOOLEAN OF 
TRUE: (cliente: STRINGC31]; 
direccion:STRINGI337; 
ciudad: STRINGI15]; 
telefono: INTEGERC8]; 
prefijo: STRINGC4); 
tipo: CHAR); 
FALSE: (prinerosinteger; 
maximos integer); 
END; 


VAR 
viejos, cliente:FILE OF cli; 
4,y,zyactual, ultimo: INTEGER; 


BEGIN 
RESET (viejos, *cliente.vie”); 
RESET (cliente, *cliente.dat?); 
SEEK (cliente, 1); 
GET (cliente); 
ultinos=cliente*.maximo; 
actual:=viejos*.primero; 
GET (viejos); 
y:=2 
2:=2; 
REPEAT 
WITH viejos” 
DO BEGIN 
IF tipo="C? 
THEN WRITELN(cliente:15,* ANULADO”); 
ELSE BESIN 
WRITELN (clientes15); 
cliente*:=viejos; 
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SEEK(cliente,z); 
PUTícliente); 
23=2+1; 
END; 
GET (viejos); 
yi=yH; 
IF z-1dultino 
THEN BEGIN 
HWRITELN(* HAY *,2,? REGISTROS ACTIVOS,”, 
*EN UN FICHERO QUE LOS PREVEE?, 
ultimo,” !?); 
NRITELN(”NO PUEDO SEGUIR. ?); 
WRITELN (PULSE <RETURN>”); 
READLN; 
EXIT (program); 
END; 
END; (DE LA HITH CLIENTE"); 
UNTIL yó=actual; 
SEEK (cliente, 1); 
GET(cliente); 
cliente”.primero:=z; 
SEEK (cliente, 1); 
PUT (cliente); 
CLOSE (viejos); 
CLOSE (cliente); 
END. 
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BIBLIOTECA BASICA INFORMATICA 


INDICE GENERAL 


Dentro y fuera del ordenador 

Todo lo que debemos saber para poder comprender 
en qué consisten y cómo funcienan los ordenadores. 
Diccionario de términos informáticos 

Una perfecta guía en ese «maremagnum» de palabras y 
frases ininteligibles que se usan en Informática. 

Cómo elegir un ordenador... que se ajuste a nuestras 
necesidades 

Las características y detalles en los que deberemos 
centrar nuestra atención a la hora de elegir un 
order.ador. 

Cuidados del ordenador... cosas que debemos hacer o 
evitar 

Esos consejos que le evitarán problemas con su 
equipo, permitiéndole obtener el máximo provecho. 
¡Y llegó el BASIC! (1) 

Un claro y sencillo acercamiento a los principios de 
este popular lenguaje. 

Dimensión MSX 

El primer BASIC estándar que ha conseguido difundirse 
de verdad no es sólo un lenguaje; hay bastante más. 
¡Y llegó el BASIC! (II) 

Instrucciones y comandos que quedaron por explicar 
en el la parte 1 

Introducción al Pascal 

Una buena manera de adentrarse en la programación 
estructurada, ¡la nueva ola de la Informática! 
Programando como es debido... algoritmos y otros 
elementos necesarios. 

Ideas para mejorar la funcionalidad y desarrollo de sus 
programas. 
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Sistemas operativos y software de base 

Qué son, para qué sirven. Unos desconocidos muy 
importantes. 

Sistema operativo CP/M 

Uno de los sistemas operativos para microprocesadores 
de 8 bits de mayor difusión en el mercado. 

MS-DOS: el estándar de IBM 

Sistema operativo para el microprocesador de 16 bits 
8088, adoptado por el IBM-PC. 

Paquetes de aplicaciones. Software “pret a porter” 
Características y peculiaridades de los más importantes 
paquetes de aplicaciones. 

VisiCalc: una buena hoja de cálculo 

Interioridades y manejo de una de las hojas de cálculo 
más usadas. 

Dibujar con el ordenador 

Profundizando en una de las facetas útiles y divertidas 
que nos ofrecen los ordenadores. 

Tratamiento de textos... para escribir con el ordenador 
Cómo convertir su ordenador en una máquina de 
escribir con memoria y todo tipo de posibilidades. 
Diseño de juegos 

Particularidades características de esta aplicación de 
los ordenadores. 

LOGO: la tortuga inteligente 

Un lenguaje conocido por su «cursor gráfico», la tortuga, 
y sus aplicaciones pedagógicas al alcance de su mano. 
BASIC y tratamiento de imágenes 

Todo lo que en ¡Y llegó el BASIC! no se pudo ver sobre 
las imágenes y gráficos en el BASIC. 

Bancos de datos (1) 

Peculiaridades de una de las aplicaciones de los 
ordenadores más interesantes, y que más dinero 
mueven. 

Bancos de datos (II) 

Profundizando en sus características. 

Paquetes integrados: Lotus 1-2-3 y Simphony 

Estudio de dos de los paquetes integrados (Hoja de 
cálculo + base de datos +..) más conocidos. 

dBASE II y dBASE MI 

Cómo aprovechar las dos versiones más recientes de - 
esta importante base de datos. 

Los ordenadores uno a uno 

Un amplio y completo estudio comparativo. 

Cálculo numérico en BASIC 

Una aplicación especializada a su disposición. 


26 Multiplan 
Cómo hacer uso de este moderno paquete de 
aplicaciones. 

27 FORTRAN y COBOL 
Dos lenguajes muy especializados y distintos. 

28 FORTH: anatomía de un lenguaje inteligente 
Principales características de un lenguaje moderno, 
flexible y de amplio uso, en la robótica. 

29 Cómo realizar nuestro propio banco de datos 
Conocimientos necesarios para poder fabricar un 
banco de datos a nuestro gusto y medida. 

30 Los paquetes integrados uno a uno 
Todos los que usted puede encontrar en el mercado. 


NOTA: Ingelek, S. A. se reserva el derecho de modificar, sin 
previo aviso, el orden, título o contenido de cualquier volu- 
men de la colección. 


a documentación y el manejo de la infor- 
mación obtenida han sido siempre uno de 
-los grandes problemas informáticos, pues 
en cuanto el volumen de datos se hacía re- 
lativamente importante su proceso manual 
se hacía lento, costoso y poco eficaz. 

La solución se ha materializado en los lla- 
mados “bancos de datos”, que, indepen- 
dientemente de su medio de almacenamiento, conservan 
un gran número de datos con una coherencia temática y 
en las “bases de datos”, que nos permiten el acceso, re- 
cuperación y actualización de los datos. 

En este libro comenzaremos a ver cómo podemos con- 
seguir este tipo de funciones mediante completos pro- 
gramas, presentados en BASIC y en Pascal, que serán de- 
talladamente explicados. 
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